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+ die UTPUT = Output Virtual Displays’ 
Ts UT S72" ! File: SMGDISOUT.B32 Edit: PLL1072 


1 ZTITLE ‘SMGSDISPLAY 
§ MODULE SMGSDISPLAY_O 
IDEN 
2 
BEGIN 


eee eeeeeRee HARRAH ARAAAAATEAAEKAATAAT KHER AKA KKHKAKKeKeeeeAKeKAeee ee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS aie useet ab ICEESE AND MAY BE USED AND gd 
ONLY ACCORDANCE WITH THE TERMS OF SUCH 


Ssss 


2 I IOO 


oO 
MIFUN (OOO NOUN EWN (OC ODODNOUE WN" OOONOuM 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:; eepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


com 
® 
wv 
z 
® 
® 
® 
® 
® 
' ® 
ie TRANSFERRED. . 
wt 
® 
® 
® 
® 
® 
® 
® 
® 
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! ABSTRACT: 

: The procedures in this moduie output the information contained 
! in virtual orepe eye 

: postings | to paste oards. Also include in this module are procedures 

' to optimize decisions about what needs to be output, and how to output 


using the mappings to windows defined via their 


SSosoossooosoooooSoSSoSSSSSS 


lee 
! FACILITY: Screen Management 


WAw 


! in the most optimal fashion. 


ee 


' 

' 

! 

' 

! 

' 

' 

' 

' 

1 

: The virtual displays and pasteboards are allocated/deallocated, 
! pasted/unpasted, etc. by Fre procedures in SMGSDISPLAY_LINKS. The 

' contents of the virtuel-¢ watt Fe themselves are sotselaad by 
BncepISPLAY. in eMGSDISPLAY. CHA The routines in module 

! 
' 
! 
{ 
' 
' 
' 
i 
1 
' 
' 
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displays. 
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i ENVIRONMENT: User mode, Shared Library routines. 
i AUTHOR: R. Reichert, CREATION DATE: 27-Jan-1983 
i MODIFIED BY: 


i 1-001 - Original. Skeleton for future code RKR 27-Jan-1983 
! 1-002 - Further development. RKR 11-Mar-1 83 


ee ee ee ee 
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Shgsp ls LAY_OUT SMGSDISPLAY_OUTPU Output Virtual Displays 16- ate 1984 90: 324 AX-11 Bliss-32 v4.0 Page at 


-Sep-1984 SMGRTL.SRC SMGDISOUT. 5 2;1 
; 28 2 1} 1-09) = Correct names of data str ye tures and macros. PLL 15-Mar-1983 : 
; 1! 1{- oot ge At SH_BUFFER, SMGSSFLUSH_ BUFFER and snc CONTROL_MODE. | ‘ 
; 60 1 i elete Sh GSENABLE BUFFER and SMGSDISABLE_BUFFER. | ; 
: 61 7. ioe -Mar-19 ‘ 
; 6 $6 1! 1-005 - mt mer —" + dh cennents al | eer 1965. : 
: 6 1 } 1-006 = Change s R 25-Ma | : 
> «664 4 1! 1- - Make FILL. WINDOW. BUFFER abl YY cone Rae | that son n't ‘ 
; «65 065 1! correspond exactly to the window buff RKR 28-Mar-198 ; 
3 28 B98 1! 1- 8 - More debugging o gbove -Mar- . 
; 6 067 1 | 1-009 = Add some code dealing with borders. RKR §-APR-1983. : 
; «68 Bes 1 ! 1-010 - Add code or teseiog borders. RKR 7-APR-1983 | é 
: 69 1 | 1-011 = Separate bits used } borders. RER 15-APR=1983. | : 
3 0 0 1 ! 1-012 = Move m - imal Sete, hag its own module along with buffering : 
Tas 71 1! stuff. RKR 15- : 
os if 1 ! 1-013 = Update per en butter "han minimal update is enabled. : 
28 3 1} Use hn" Ray ‘S50 names for mode bits. ; 
4 74 74 1 ! rs @ 
wee 0075 1! 1-014 = ea cont and eter ibute cadena 85, beginning of : 
7S Bare 1! SMESSFICL WINDOW BUFFER. : 
c-- 2 077 1 ! 1-015 = Fix doublé-dot bug in SaGSCO MODE. ; 
; re Bore : penove co a B55 SM SSCONSTRUCT "BORDER. CHAR. : 
; & 0086 1 ! 1-016 = Flush output when batchin ss : 
; 8 081 1! New status rgryens for SM sino: _DISPLAY UPDATE. ; 
[se ae 1! STAN 3-May-1 : 
© 0085 1! 1-017 Complete overhaul of CHECK_FOR_OUTPUT_DCB, CHECK_FOR_OUTPUT_PBCB, : 
; 84 0084 1! and FILL_WINDOW BU : 
3; Ooee 1 } Remove some 3. the obsolete code resulting from prior edits. : 
; 686 O36 zs RKR perp : 
; or B28 1! 1-018 Clea loose ends from last edit. Remo : ; 
3 88 88 1! SMESSC STRUCT. BORDER. CHAR. RKR 4-MAY-1983 : 
; 689 0089 1 ! 1-019 pee ed redrawing of “window w busier by making use of : 
: 090 1! v 705 LUDED bit. RKR 6-MAY-19 : 
; oT 91 11 1-020 Adaife d edit | -019. ; 
3 4 36 1? Set phys cal (pasteboard) cursor position to the position : 
; «9 1! corresponding to the logical cursor position in : 
; | «94 94 1! last v reyes Saiseley that the user referenced. ; 
s 9 oo Ff Thus physi cal cursor position has absolutely nothing : 
; 38 : pee h the order the displays are pasted in. : 
: 98 98 11 1-021 rite _SMCSSINVAL DATE, DISPLAY. 3 
: 99 1! STAN 9--. — : 
; 100 100 1! 1-022 Add optimized move for contiguous source and destination in : 
3 + 9 +4 ; ! SROSSF ILL WINDOW. BUFFER and SMGSSCHECK_FOR_OUTPUT_DCB. : 
s F ; 1 § 7! RKR 9-MAY=198 ° 
; 10 103 1 ! 1-023 Force REPAINT_SCREEN to repaint the screen even though it did ; 
; 104 1 1; not think th ongree” changed. : 
; 105 105 1! STAN 10-May-19 : 
; 198 1 1! 1-024 Fix Draw Border -- problem with border element overwriting : 
3 198 ; : } cok frat, nes, yideo attributes. : 
WS 1 3 1! 1 -025 Take advantage of sizes available in DCB, WCB and PP. No 3 
: 19 8 : tonger ne peed Ate multiply number of rows by number of cols. . 
: 118 1g 1/1 -026 lh amy inner-nost subroutines to allow usage by input : 
s Fi see support routi 1 . 
3; («1N6 1144 =#1! RKR 15-MAY-198 ; 
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a 


1-027 age 4 Sagseecin PASTEBOARD_UPDATE and SMGSEND_PASTEBOARD_UPDATE. 
1-028 change togte of CHECK. FOR_OUTPUT_PBCB with respect to no 


pest no pack 
1-029 An CHECK_FOR OUTPUT .PBCB. Check for no pasting packets is 
RER o°F5-may-1983. 
1-030 ty pd references to external DD_ structures and counts -- 
+8 er needed. 
Part : rua 3°" SMGSRING_BELL == add display_id argument. 


1-031 ws ogic to BEGIN. DISPLAY_UPDATE and END_DISPLAY_UPDATE to 


pee Kye an and soagter® DCBs. 
1-032 Ar ga G ations TIMES by reference to STRSDUPL_CHAR. 


1-033 Add code to calc, what part of WCB buffers got changed and 
oe A} ware i fo in PBCB for output routines to use. 


1-034 Allow RING_B “to return SSS$_NORMAL if no error occurs. 


1 1 
1 1 
1 1 
1 1 
1 1 


5 5 
; ; 
| ok 
; ik 
5 5 
; ; 
8 8 
; 
a) 
5 5 


~ 7% 1 1! $ 
, § 1 1: : 
. % 1 & $ 
3 1 1! : 
..% 1 . 3 5 
.. 2 1 1! $ 
. 1 1! : 
: 1 1 1! : 
oo 1 1! 3 
Ya 1 1! ; 
9 1 3 3 
> 1 1! : 
..' 1 1! 3 
eS 1 1! 3 
.1 5 1 1! ; 
ee 1 1! 3 
ae 1 1! F 
g 138 | | 
: 1 134 1! ; 
ae | 01 1! : 
3 1 1! STAN 27-May- ; 
. 3 1 1! 1-035 Rename PBC 8 gous to PBCB_W_WIDTH. : 
a. 138 1! STAN 11-Jun-1983. ° 
; 139 3 9 1 ! 1-036 Add some bullet proofing to routine calls that don't check ; 
3 re re ; ptetys. . ant SSPOINT_IN_RECT into SMGSSPOINT_IN_RECT_RS. , 
3 a Die 1 ! 1-037 Make DRAW _BORDER affect the record of what area of the ; 
; 163 Bie? ! wind w conte block buffer was modified. ‘ 
; «6145 aie? 1! 1-038 Make SMGSEND _DISPLAY UPDATE artore the pasting packet ' 
3 166 166 1! constant recalculat ions if OCB_V P_MISM TCH ind coteq that : 
3; (14 147 1! the SMGSDISPLAY_LINKS routine zuatdne t do it at the time the . 
3 168 168 ' oer ete “because the display was batched. : 
s 13 150 1 ! 1-039 Im CHECK_FOR OUTPUT _DCB rearrange inner loop to check for ; 
s 51 131 1! pesteboard batching and to use action code to decide whether : 
; 136 136 1! rder needs to be (re)drawn. : 
3; 3 1 7! In END_DISPLAY_UPDATE, pass action code to CHECK_FOR_OUTPUT_DCB. : 
3; «6154 154 1! RKR 20=JUN- 3 
s 155 155 1 ! 1-040 AN ooCeet introduced in last edit. Advancement to next PP must ; 
.-% 156 1! inside outer loop, but not inside inner loop. ; 
: i 188 1 i 1-061 RxR 2T=JUN} 1983 TEXT_T,VINDOW BUF ing alternat 
$ ! 1- alternate 3 
3 135 135 1: creek Ey set t legit ore 3‘ft ts own Tncr Sep ins Pead f checking : 
; 160 199 : for Fea, fvalternate character set Gop in tine mn main loop. : 
; 16¢ 106 ! ; 1-042 Further speed. r of SMGSSMOVE_TEXT_TO_BUF. : 
3; 6164 164 1 ! 1-063 Smarten up SMG SEND DISPLAY grote to "bes nize situations where ; 
3; 165 165 1! it is secessory to Fedraw the affected pasteboard bul ters from 3 
3 166 166 7} the om out -- rather than wae the d Tooley that had its : 
3 19 19 : batch ning ti nt ! : 
3 ! 1- enove L rom the ec erat on sot : 

189 189 1! 1-044 re IpsPut SCREEN f he EXTERNAL decl i h t SCRSHR ; 
: 170 1 9 1! ill no not be pulled into the SMGSHR shareable i mage. PLL 1-Jul-1983 3 
: ! 1- ogic to map the Line characteristic vector during mapping 3 

171 171 1°! 1-045 Add t he | h t ti t i 3 ; 
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or et Ons os 


1-046 & aoe > EmGSEIND  CURSOR_DISPLAY. Cale ° waren virtual 
oi the § creat physical Cursor is in (if any). 


1-047 i te MC USAOVE TEXT _TO_WINDOW_BUF to accomodate double-wide 
and “ pad. e/double=h 
Add optimization to SMG$$ HECK_ FOR_OUTPUT_DCB fe treat functions 
RE 3} Ag change e the cursor position as a special case. 

1-048 S$ T=Agg=1 3, a a rather tha left when pasting a 
y rtual d sotey fe otng e - pouncerys 

1-049 Fix border positio 


ah places where * tirst.e haces i roy, "and ‘“‘Last_changed_row"’ 
incorrectly computed RKR 1=SEP-19 
1-050 Further fixes vin SMGSSMOVE Tex 10 *eiNDOW _BUF wrt DWDH. 


DONA NEW —" O OONOULS UT 


0200 C9 C9 CD09 09 090908 SII NINN 


1-051 Fix SMGSSDRAW BORDER to make berger roaghets come out right 
under DWDOH situations. RKR 7-S 

1-052 Fix SNGSSDRAW M POBER, fo? pick * gmt ES bits for border 
labels. RKR T 

1-053 Os low CLEAR_ or. control mode. STAN 24-SEP-1983. 
Check a rgume s by name rather than by number. 

1-054 4 MOVE _TEXT_TO GINDOW. BUFFER to remap border elements when 
there is a transition from normal to DWOH or vice versa. 
Sram Re a nt_ clears Line characteristics.) 


1-055 Fix DRAW =BORDER for DHDW. RKR 12-OCT-1983. 
1-056 poet ace. crigisl loop by a SKPC in SMGSSMOVE _TEXT_TO_WINDOW_BUF . 


1-057 poareee to 98. nay BORDER and SMGSSMOVE_TEXT_TO —WINDOW_ BUF 
to not do special mapping for DW/DWOH if devicé doesn't 
support th ts ion. 


1-058 Make SMG SCHECK. 4 ay eve " initialize WCB CWCB_A_CHAR_SET_BUF) 
f one exists. — -NOV=1 
1-059 Make SMGSBEGIN_ DISPLAY UPDATE call SMGSSDUPL_VIRTUAL_DISPLAY 
unconditionally. SMGSSDUPL_VIRTUAL_DISPLAY flow has fhe smarts to 


te a a a nt ts ss i ts st tt 


ROPOPOPOPOPINIPYYD — 2 9 tS SS QOOOOOOOOO eh eh oh she ehh ob els Je Je] SANG 
ONS SO NF UN BOD VEAP SSO Ue OR oe VFWN —OOONOULS wr 
me a a as a “a ss as a ow 4) 2 ss ts SY 


pepefololololeolelolelololeleloelolololojlo) 


oOo Seco oooowovowvovd 
a a ee ee ee ee ee ee ee ee ee 


10 decide whether a oy DCB neéds to be created or whether only current 
\ contest ae nee baS. © be preserved in an already-existing backup DCB. 
ig 1-060 Int Bn torn inn outine snes BEGIN. PASTEBOARD_UPDATE_R1 and 
1 oy a sa PASTEBOARD. UPDATE_R 
1 1-061 Use e routine SMGSSUPDATE_PHYSICAL_CURSOR to fix physical cursor 
1 posit yn roa ourPbT-oG8. path through 
} pe tect DEC=1 
1-062 F SEND_DISPLAY UPDATE. It was returning garbage if the batching 
irl. already 0° 


1-063 F 1GNED/UNS 1 GNED problems in SMGSSPOINT_IN RECT_R3_and in 
EAESSOCCLUD CL UO a 8s Change Linkage to SMGSSPOINT_IR_RECT_RS. 


1-064 Fit t ancbdonAues BORDER for cases where virtual display is: 
. Wider than pasteboard and pasted at 0 or negative col and 
8): Higher than pasteboard and pasted at 0 or negative row 


SOOOSSOOOOOOOCOSOOCOSOSCOOOOOOOoOSoSoO 


DONO E WOO 
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3 9 9 1! RKR 23-Jan-1984. 

3 0 0 1! 1-065 ne smi SDRAW x RDER abandon attempt we draw border altogether if none 
: 1 1 : et rast virtua display maps onto the visible part of the pasteboard. 

; : : 1 | 1-06 Add rout ne SmcSGE T_CHAR_AT_PHYSICAL_CURSOR RKR ane 984 4. 

; 4 1: 1- 6 Move INVALIDATE Disttar fo File SMGPRVINP.B32. -Mar-19 

3 5 5 1! 1-068 Yosate ne header ra) ° Moyen MODE to aeelan the hotABs bit and Clean SCREEN. 
: : 1 i -Mar-1984. Ublic entry point SMGSINVALIDATE DISPL 

: 1 § 1-069 If only one Line o = 4 B changed, tell that to output Abt 

: 5 3 } : of TAN Someqei9b6 felling output that the whole display changed. 

; 240 40 1! 1-371 Rake, hor te otal “borders knock down DHDW syeres tor taste. STAN 17-Jun-1984, 
3 4) 41 1! to Smes CONTROL_MODE to allow notabs bit. un-198 

3 og tg 1 ' 1-072 Tighten up some @ consistency checks on the data structures. it was 

: 26 43 13 possible to 98° an_ endless loop while walking the pasting packet 

: te 8 te : ¥ chain. PLL 18-Jul-1984 


eee CC ae ieee — 
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¢$ 1 ZSBTTL ‘Declarations’ 
4 i] 


4 ' SWITCHES: 
4 ! 
' 
LINKAGES: 
LINKAGE 
POINT_IN_RECT_LINK = JSB ( REGISTER = 0, REGISTER = 1, REGISTER = 2) : 
NOPRESERVE ( 3) 
NOTUSED (4,5,6,7,8,9,10,11); 


INCLUDE FILES 


PAEXEXQPEMAMSSSIVSIVIS & & 
WN OO ODONOUFS WN —"O0O~ 


REQUIRE 'RTLIN: SMGPROLOG.REQ'; defines psects, macros, tcb, 


web, & terminal symbols 


] 

TABLE OF CONTENTS: 

FORWARD ROUTINE 

! Public entry points: 
SMGSBEGIN_DISPLAY_UPDATE, 


Advance buffering level count for 
a virtual display 


SMGSBEGIN_PASTEBOARD_UPDATE, Advance buffering level count for 


a pasteboar 


SMGSCONTROL_MODE, 


Control operational modes 


SMGSEND_DISPLAY_UPDATE, Decr. buffering level count 
and flush to screen if it 


reaches zero. 


SOOONA VE WIN $0 OONAUE WINS ON "OOO NAOUE Wt" OOM 


AAAI AAAI AINA WIAA AIA 
PEPE QD PAP BB BBB BP BEE POO Om 


SMGSEND_PASTEBOARD_UPDATE, 


Decr. buffering level count 
for a pasteboard, and flush to 
screen if it reaches 0. 


Find the display which 
contains the current physical 
cursor position (if any). 


o 
UPwrn— 


SMGSF IND_CURSOR_DISPLAY, 


SMGSGET_CHAR_AT_PHYSICAL_CURSOR, Return char at physical cursor 


Location 


LESRESLESELEARAN AS SAVE AS AN = SSHISEAF 


SMGSINVALIDATE_DISPLAY, 
SMGSREPAINT_SCREEN, 


Mark contents of display as unknown. 


Repaint the entire screen the 
way our internal database says 
it should look. 


Ring bell 


a a tt at tt a a a a 8 2 = Ss = ss — 9 — 2 — 2» — 9 2 


CSOOSOGOSOOOCOOCCOCOOCOSSOCOCOOOSOOCOOOCOOOCOO OOOO O OOOO OOOoOoOO 


De Se Oe Oe Be Oe Fe Se Se Be Oe Se Se Be Ge Se Se BF Se Se Ge Fe Fe Ge SH Ss Ge FH Ss Se FHSS SS Hse BH SF SH SH Se Se SESE SE SESE GHGs SET Se Se Se Se Sete tsas 


SMGSRING_BELL, 
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: 749 AX=11 Oi ieg-32 13 0788 
Declarations 209:4 SMGRTL.SRCJSMGDISOUT.B352;1 


EXTERNAL 
PBD_L_COUNT, ! No. of pasteboards we currently have 


PBD_A_PBCB : VECTOR CPBD_K_MAX_PB, LONG], 
' Tablé of addresses of PBCB's 


PBD_V_PB_AVAIL : BITVECTOR CPBD_K_MAX_PB); 
! Bit vector or pasteboard id numbers in use. 


oy Sy ot ot ot et et ee 
MEWAN OO OONOUE WN" OOONOUES WN OO 


EXTERNAL LITERAL 


SMG$_BATSTIPRO, ' Success; but batching is still in progress. 
SMG$_BATWASOFF, ' Success; but batching was already off 
SMG$_BATWAS_ON, 
SMGS$_FATERRCIB, ; 


rere 


' Success; but batching was already on 
' Fatal error in library procedure 


= 


> 304 2 

3 1 ! ! Private entry points: 

H 09 : 1 SMGSSBEGIN_PASTEBOARD_UPDATE_R1 : SMGSSBEGIN PBD_UPDATESLNK 

; 08 0 4 ' Inner BEGIN_PASTEBOARD_UPDATE 
3 310 Bg 1 SMGSSCHECK_FOR_OUTPUT_DCB, ! Check to see if a virtual 

3 Sti 1 ! display needs to be flushed to 
3 1g fs : ! screen. 

> 314 90 1 SMGSSCHECK_FOR_OUTPUT_PBCB, ' Refresh everything on this 

3 319 91 1 ! pasteboard -= triggered by 

: 18 35 : ! an unpaste. 

3; 218 0394 1 SMGSSDRAW_BORDER, ! Move border characters into 
; i 8 2? : ! WCB text buffer. 

; st 0 3 1 SMGSSEND_PASTEBOARD_UPDATE_R2 : SMGSSEND_PBD_UPDATESLNK 

; 3¢ 0398 ! Iniier END_PASTEBOARD_UPDATE 
: 54 0400 1 SMGSSF ILL_WINDOW_BUFFER, ! FILL the window buffer 

3; Bee 0401 1 ' associated with a pasteboard 
> 326 0402 1 ! with images of the virtual 

3 $56 Bebe : ! displays that map into it. 

: $$) 0405 1 SMGSSMOVE_TEXT_TO_WINDOW_BUF , ! move text from DCB buffers to 
3 39 Bee : ! WCB window buffers. 

; $4 0408 1 SMGSSOCCLUDE, ' Check whether two rectangular 
$ 3 Be9 : ! areas occlude each other. 

: 2 0411 1 SMGSSPOINT_IN_RECT_R3 : POINT_IN_RECT_LINK; ! Returns codes 

: 336 0412 1 ! indicating where a 

s Sor 04135 1 ! given point is with 
; 338 0414 1 ' respect to a given 

3; 339 0415 1 ! rectangular area. 

> 340. 0416 1 

; 341 1 1 

: 4g 1 1! 

: rb 1 : EXTERNAL REFERENCES 

3; «345 1 

$ 1 

3 1 

$ 1 

5 1 

; 1 

5 i 

3 1 

: 1 

3 1 

3 1 

3 1 

3 1 

3 1 

: 1 

: 1 


Be ee Be Oe Be Be Se Se Se Se Ge Se Se Se Se Be Se Se Se Se Se Se Se Oe Sete Se ee Se Ge Se Se Se Se Se ee Se Se Se Oe FH Se Se Sees Se Se Se eee Se Fe Se Se ee ee ae 
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; 36) 437 1 SMGS$_INVARG, ! Invalid argument 
; 4 : 1 SMG$_INVCOL, ! Invalid column number 
; 36 4 1 SMG$_INVDIS_ID, ! Invalid virtual display id 
> 364 440 1 SMGS_INVPAS_ID, ! Invalid pasteboard id 
$ 2? Qed : SMGS$_INVROW; ! Invalid row number 
: 367 443 1 EXTERNAL ROUTINE 
; 368 444 1 LIBSESTABLISH, ! Used to establish a handler 
: 393 tee 1st eSOrTCOM bal taseae fous benrene’™ 
: 371 103 1 LIBSSFREE1 0D, i Free ® dynanic string 
: tee | LIBSSIG_TO_RET, + pe al o turn signals into return 
: 74 0450 1 STRSDUPL_CHAR i Make a string of N copies of a byte. 
: 13 0451 SMGSSDUPLC_VIRTUAL_DISPLAY, ; Make a copy of a DCB with a new 
: 377 bc8§ 1 SMGSSFLUSH_BUFFER i Flush yenaining buffered output 
: 378 0454 1 SMGSSINVALIDATE_DISPLAY, ‘ TeLl SMG that user has 
: 79 0455 1 ' written into this display on his own. 
; 380 0456 1 SMGSSMIN_UPD, ! Minimal update output routine 
: 381 0457 1 SMGSSOUTPLT, ' Output a gtr ing to a pasteboard device 
; o¢ pees : SMGSSRECALC_PP_FIELDS, poate: PP ‘re.es after batching level 
3 ! ed on a 
5 tee Reed : SMGSSUPDATE_PHYSICAL_CURSOR;! Update physical cursor position 
: 386 0462 1 !<BLF/PAGE> 


——_—__ -——_—__-—__--— 
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; 8 4 1 ZSBTTL "SMGSBEGIN_DISPLAY_UPDATE = Begin batch of updates to display’ 

89 i 1 GLOBAL ROUTINE SMGSBEGIN_DISPLAY_UPDAYE < DISPLAY.ID ) =) 

; % 466 1 | FUNCTIONAL DESCRIPTION: 

: 39 4 1 i Disable outputing this virtual display to the screen until th 

: ge 89 ! matching call to’ SMGSEND. DISPLAY. UPDATE is encountered. “ 

i 396 47) 1 | CALLING SEQUENCE: 

3 oS ba7§ } ret_status.wlc.v = SMGSBEGIN_DISPLAY_UPDATE ( DISPLAY_ID.rl.r) 

3 4 9 ae | FORMAL PARAMETERS: 

; rt oe : | DISPLAY_ID.rl.r Display id of virtual display. 

: 404 0479 1 | IMPLICIT INPUTS: 

; 405 0480 1! 

oo ae 

; 408 acs i IMPLICIT OUTPUTS: 

ie Be] me 

; aig 0487 { COMPLETION STATUS: 

> 414 0489 1: $S$_NORMAL N i ion, 

a icatt 0490 1 i x nev pe perce ul completion, batching has been 

: 416 0491 1! SMG$_BATWAS_ON Success, but note that batching was already on 

; 41? 049 SMGS_INVDIS-ID Invalid Display Id 

: 419 0494 1 | SIDE EFFECTS: 

: 420 0495 1! 

; 421 0496 1! NONE 

3; 4 § 0497 1 !-- 

3; 6 0498 1 

BRS nem 

; 426 0389 DCB : REF BLOCK C,BYTE); ! Addr of display control block 

: 428 050 1+ 

, is Bebe : Check for right number of arguments. | 

; 431 206 "  SSMGSVALIDATE_ARGCOUNT ( 1, 1); 

; 138 508 SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get DCB address | 

BRE. 

: 4 511 i Increment count of number of SMGSEND_DISPLAY_UPDATE calls we need to 

; 437 21¢ ! see before we resume outputing from Ehis virtual display. 

3 4 51 ! Let the user know what the previous state of batching was by 

: 439 “13 our status return (in case he's interested). 

; 316 "DCB CDCB_L_BATCH_LEVEL) = .DCB CDCB_L_BATCH_LEVEL] + 1; 

; 318 IF .DCB CDCB_L_BATCH_LEVEL) EQL 1 | 

: 51 THEN | 
| 
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> : Oye sat 1enkepn19Re Seib9.ce *§sacolson 


SMG$D t 4g 
DATE = Begin batch u -Sep-19 SMGRTL.SRCJSMGDISOUT.8352;1 


Ou Page 10 
A ve 


! Begin of batching operation 


TATUS ! Status of subroutine calls 
P : REF BLOCK C,BYTEJ; ! Addr of a pasting packet 


14 
! Make a copy of current DCB and leave its address in the 
backup pointer field of the current DCB. 


IF NOT (STATUS = SMGSSDUPL_VIRTUAL_DISPLAY ( 
. ! Addr of curr. 
DCB COCB_A_BACKUP_DCB])) ! Where new 
! get stored. 


+ 


each encountered, in the affected past ing packet, set the 
back pointer to the DCB to be the new DCB we've created. 

This causes all mapping operations to reference the backed up 
DCB as the source of images for the screen. This is the 
desired action since the current DCB is undergoing changes 
“obte eons not yet find their way to the screen -- its 
atched. 


PP = .DCB CDCB_A_PP_NEXT]; 
IF .PP EQL 0 
THEN 
RETURN (SMGS$_FATERRLIB); ' should never be 0 
! (points to self when empty) 


ee -PP NEQ DCB CDCB_A_PP_NEXT> ! While any remain 


BEGIN 
PP CPP_A_DCB_ADDR] = .DCB CDOCB_A_BACKUP_DCB]; 
PP = .PP™CPP_A_NEXT_DCBJ; ! Stép to next packet 


RETURN SS$_NORMAL; 

END ! Begin of batching operation 
ELSE 

RETURN SMG$_BATWAS_ON 


$ 
G 
4 
4 
4 
4 
EN 
RETURN (.STATUS); 

! Walk chain of all pasteboards that we are pasted to and for 
4 
4 
: 
1 END; ! End of routine SMGSBEGIN_DISPLAY_UPDATE 


CGOOCOCOCOSOOCOSOOSOSOSOOOSOSS OOOO SOOOCOOCOCOCOCOOOOOOOOCOOCOOCOOOOCOO “4 


-TITLE SMGSDISPLAY_OUTPUT SMGSDISPLAY_OUTPUT = Output 
Virtual Displays 
-IDENT \1-072\ 


.EXTRN PBD_L_COUNT, PBD_A_PBCB 
-EXTRN PBD-V-PB_AVAIL, SMG$_BATSTIPRO 
-EXTRN SMGS_BATQASOFF, SMG$_BATWAS_ON 


———__————_ 


3; Routine Size: 123 bytes, Routine Base: _SMGSCODE + 0000 


dD 10 
ISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:40 AX-11 Bliss-32 v4.0-74 Pa 1 
ness SMGSBEGIN_DISPLAY_UPDATE = Begin batch of Yodat 12-80-1382 90: 35i28 YOMGRTL SRe SMGDISOUT.B32;1 ” (3) 
.EXTRN SMGS$_FATERRLIB sncs INVARG : 
SEXTRN SMGSTINVCOL, SMG$_INUDIS_ID | : 
EXTRN SMGS-INVPAS_ID, SAGS$_INVROW : 
~EXTRN LIBSESTABLISH, LIB ence VM : 
“EXTRN LIBSGET_VM, LiB SFREE D | ; 
SEXTRN L1B$316 TO_RET, STRSDUPL_CHAR : 
-EXTRN SMGSSDUPL_DIRTUAL_DISPLAY 3 
SEXTRN SMGSSFLUSA_BUFFER : 
«EXTRN SMGSSINVALIDATE DISPLAY 3 
SEXTRN SMGSS$MIN_UPD, SAGS$SOUT ; 
-EXTRN SMGSS$RECALC_PP FIELDS F 
-EXTRN SMGSSUPDATE-PHYSICAL_CURSOR ; 
-EXTRN SMG$_WRONUMARG ; 
.PSECT _SMGSCODE,NOWRT, SHR, PIC,2 : 
0004 000 .ENTRY SMGSBEGIN_DISPLAY_UPDATE, Save R2 + 0464 ; 
5E 04 c2 00009 SUBL2 : : 
01 6¢ 1 0000 CMPB. sé AP), «#1 > 0506 F 
0 13 90008 BEQL : : 
50 000000006 &F v6 900A MOVL #SMG$_WRONUMARG, RO : ; 
50 04 BC 00 ites 1$: MOVL §$ @DISPLAY_ID, RO + 0508 : 
046 BC 8 AO D1 00016 CMPL  56(RO), SDISPLAY_ID : : 
06 12 0001B BNEQ : : 
11 44 AO 91 0001D CMPB =s-s« @B(RO), #17 : ; 
08 13 00021 BEQL : ; 
50 000000006 8F 00 990 ; 2$: MOVL #SMG$_INVDIS_ID, RO : : 
6E 06 BC dO $09 B 3S: MOVL § @DISPLAY_ID, DCB F 
50 6E DO 0002F MOVL DCB, RO : 0516 
1¢ AO 06 000 ‘ INCL g8<R0) ; 
01 1¢ Aad 01 000 CMPL B(RO), #1 : 0518 
38 12 00039 BNEQ : 
40 AO 9F 00038 PUSHAB 64(RO) : 0531 
04 AE 99F 0003E PUSHAB D : 0529 
000000006 00 Q FB 0041 CALLS #2, SMGSSDUPL_VIRTUAL_DISPLAY > 0531 
ef E9 00048 BLBC STATUS, 7$ F 
1 6E 00 00048 MOVL he R : 0546 
50 2c «(Al OCOD OO4E MOVL (R1), PP : 
08 12 0005 BNEQ : 0548 
50 000000006 8F 00 00054 MOVL § #SMGS_FATERRLIB, RO : 0550 
04 0058 RET : 
53 20 al i 905 4$: MOVAB 32(R1), R2 : 0553 
50 D 6 CMPL PP, R2 ; 
0A 13 0006 BEQL ; 
10 A0 40 Al 00 0006 MOVL  64(R1), 16(PP) ; 0556 
5 60 DO 0006A MOVL (PP), PP : 055 
D 11 0006D BRB ; 0553 
50 1 9 of 5$ MOVL #1, RO : 056 
50 000000006 8F DO a978 4 MOVL § #SMG$_BATWAS_ON, RO ; 
04 O007A 7$ RET ; sm 


Ss ISPLAY_OUT ere LAY OUTPUT = Output Virtual Displays ‘Ba -1984 7:40 AX-11 Bliss-32 V Page 12 
773 MGSBEGIN_DISPLAY “UPDATE. = Begin batch + updat 127808-1 38 9%: 36; 746 SMGRTL.SRC neisaeo! sour. Bae: 31 . 


; 493 0568 1 !<BLF/PAGE> 


——————— a 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Vir Me L Displays Sep-1984 :37:4 AX-11 Bliss-32 V4.0-7 Pa 13 

3m838 SMCSBEGIN. PRSTEBDARD . UPDATE = Begin batch of up 1 12: Haat 90: 30i2 SMGRTL.SRCJSMGDISOUT. 3 2;1 - sed 
: 495 § 1 ZSBTTL ‘SMGSBEGIN_PASTEBOARD_UPDATE - Be egin batch of updates to pasteboard' ° : 
: t33 f : PL DSA ROUTINE SMGSBEGIN_PASTEBOARD_UPDATE ( PBID ) = : 
; 498 fe i FUNCTIONAL DESCRIPTION: ; 
; 7% «1! Disable outeyt ing this peste oard to the screen until the ; 
: 1 Ne ! } matching call to SMGSEND_ EBOARD_UPDATE is encountered. : 
; 08 re | | CALLING SEQUENCE: 
; 505 og ! ret_status.wlc.v = SMGSBEGIN_PASTEBOARD_UPDATE ( PBID.rl.r) ; 
3 $09 ; |} FORMAL PARAMETERS: 
: erl.r Pasteboard id. $ 
09 2 g 1 | PBID. rl board id ; 
; if 0989 | ! IMPLICIT INPUTS: ; 
4d 5h le. 2 
: 515 0589 1 | IMPLICIT OUTPUTS: ; 
>; 516 B2ay 1! : 
ie Bat = : 
; 219 0595 | COMPLETION STATUS: : 
; 354 0595 1! $S$_NORMAL Normal successful completion, batching has been : 
3 as¢ 0596 1! nitiated : 
; 3 0597 1! SMG$_BATWAS_ON wetbeny but note that batching was already on 3 
3 ase Bene ! SMG$_INVPAS_ID Invalid Pasteboard Id : 
: 526 0600 1 ! SIDE EFFECTS: ; 
: é 7 0601 1! : 
3 8 0602 1! NONE 3 
: 38 a 
: 38 ae sah 
: 235 060 PBCB : REF BLOCK C,BYTE); ! Addr of pasteboard control block ; 
2 ae : 
; 2 10 Check for right number of arguments. ; 
; ; 8 612 2 SSMGSVALIDATE_ARGCOUNT ( 1, 1); : 
i 340 614 SSMGSGET_PBCB (.PBID, PBCB); ! Get PBCB address : 
; sce Oeg RETURN (SMGSSBEGIN_PASTEBOARD_UPDATE_R1 (.PBCB)); ! Do work in inner routine ; 
i 34a 0618 END; ! End of routine SMGSBEGIN_PASTEBOARD_UPDATE ; 
0000 00000 ENTRY SHGSBEGIN, PASTEBOARD_UPDATE, Save nothing —; 0579 ; 
01 6C 91 00002 CMPB ; 061 F 


_——— 


; Routine Size: 58 bytes, Routine Base: _SMGSCODE + 


; 545 0619 1 !<BLF/PAGE> 


n87e AY~OU" SRESBEGIN-PRSTEBOARD_UPDAIE ~ Begin bateh OF up | 
50 000000006 06 ; 
50 04 Of t of 18: 
000000006 00 } a8 
08 000000006 00 0 €E0O QOOIE 
0 000000006 &F ? i : 2s 
50 0000000060040 8 OO2E 3 
9000v 3 B88 
4 000 


0078 


Sep-1 
f-tep-1 


She P3ibicg §— FaMcat Odessa abT 882.1 


1$ 

#SMGS$_WRONUMARG, RO 
goed. RO 

RO. PBD_L_COUNT 


RO, PBD_V_PB_AVAIL 
#SMG$_IRVPAS~ID, bg 


PBD_A_PBCBCRO) 
SMGSSBEGIN_ PAS TEBDARD _UPDATE_R1 


# 10 

ISPLAY -OuT § MGSDISPLAY OUTPUT = Output Virtual Displays Sep-1984 00:37:40 AX-11 Bliss-32 v4.0 Page 15 
eng 38 MGSEND_ bISPLAY UPDATE = End batch of updates t 12-868 1984 99:35:08 SMGRTL.SRC Shep $ouT-B 2;1 ° (5) 
; 547 QO 1 ZSBTTL ‘SMGSEND_DISPLAY_UPDATE = End batch of updates to display’ 
: Pr 1 ! PLOBAL ROUTINE SMGSEND_BISPLAY_UPDATE ( DISPLAY_ID ) = 
i $30 § | | FUNCTIONAL DESCRIPTION: 
: 5 1i Reduce the number of calls to SMGSEND_DISPLAY_UPDATE that will 
: $ 1 | be needed before we resume outputing From this displa -- If 
3 1/ this call makes this count go to zero, flush the disp ay to 
3 5 8 1 the screen. 
3 $ 1/ f the level is atreaty 0, we return a success status 
3 Ba nforming caller that the batching level was already 0, 
; : ee but we otherwise allow this. This gives a user a guaranteed 
: 26 § ; method of ending batching. 
; 61 4 3 CALLING SEQUENCE: 
3 ef } ret_status.wic.v = SMGSEND_DISPLAY_UPDATE ( DISPLAY_ID.rl.r) 
: 565 8 | FORMAL PARAMETERS: 
; se Deo ; DISPLAY_ID.rl.r Display id of virtual display. 
3 569 0648 IMPLICIT INPUTS: 
3 i Ose DCB CDCB_L_BATCH_LEVEL 
; 57 1 | IMPLICIT OUTPUTS: 
; Fe eh ii 
; 575 648 1: DCB CDCB_L_BATCH_LEVEL] gets decremented 
>; 576 649 1! 
: 3r 39 ; COMPLETION STATUS: 
; 579 R936 1 Normal successful completion 
; 580 531 / Snes A NBATSTIPRO Success; but batching is still in progress. 
; 581 54 1! SMG$_INVDIS_ID Invalid Display Id 
3 286 32 } SMG$_BATWASOFF Success; but batching was already off 
; $84 37 SIDE EFFECTS: 
; i 35 NONE 
; ; 1 
; 589 BEGIN 
3 330 LOCAL 
; 591 STATUS ' Status to retu 
; 3 DCB : REF BLOCK C,BYTE); i Addr of display. control block 
i $94 t¢ | 
: 595 a Check for right number of arguments. 
; 3 SSMGSVALIDATE_ARGCOUNT ( 1, 1); 
: 660 SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get DCB address 
> 601 '* 
; 60 i If current count is Db ite than 1, sinoly reduce it by one and | 
: 60 ! return to caller. it is one, reduce it to zero and cause the 


Se ee 


10 

sh6 ISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual s*eptere 15-Sep-1984 90:82: AX-11 Oi legen V4.0-74 Page 16) 

- SMGSEND_DISPLAY_UPDATE = End batch of updates t 14-Sep-1984 135:09:4 SMGRTL.SRCJSMGDISOUT.B52;1 (5) 

: $08 erg } gurrent contents of this window to be flushed to the screen (if need ; 
; 6 67 ae ; 
3 Ss 680 IF .DCB COCB_L_BATCH_LEVEL) GTR 1 | $ 
: one 681 THEN : 
3 ¢ § BEGIN 3 
; 610 DCB _COCB_L_BATCH_ LEVEL) = .0CB CDOCB_L_BATCH_LEVEL] = 1; 3 
> 611 4 STATUS = SAG$_BATSTIPRO; ! OK, but batching is still in : 
3 oig 685 END ! progress ; 
; $1 6 : F 
; ele 6 ELSE ; 
; 218 os peels ! Level is currently 0 or 1 ; 
; 618 0691 BATCH_STATUS; 3 
: 620 $98 BATCH_STATUS = SS$_NORMAL; ; 
; 6 1 069% IF ote CDOCB_L_BATCH_LEVEL] EQL 0 ; 
; 6 i 24) 4 RETURN ( SMG$_BATWASOFF ) ! Ok, but batching was already off : 
: ost 0044 ; ELSE 
3 ? $ 0699 2 eceis ! Reduction from 1 to 0 : 
; ° : O70) ? PP : REF $PP_DECL; ! Addr of a pasting packet : 
; 630 0703 4 DCB CDCB_L_BATCH_LEVEL] = 0; ; 
; Os $708 & i walk chain of pastboards to which we are pasted. for each : 
; 63 pre 4 ! pasting packet involved, set the pointer in the pastin 3 
; 634 0707 4 ' packet back to the original DCB since it is now free o 3 
; 635 0708 4 ! batching and its contents can be mapped to the screen. 3 
> 636 0709 4 ! Note: We do not deallocate the backup DCB. The assumption F 
; 637 0710 4 ' is that if the caller batched this virtual display once, : 
: 638 0711 4 ! he is Likely to do it again. This saves us having to F 
3; 639 fat 4 ' deallocate now gly to have to do another F 
3 rr Betz ? SMGSSDUPL_VIRTUAL DISPLAY when he starts batching again. : 
: 648 O715 4 PP = .DCB CDCB_A_PP_NEXT); 3 
> 644 O71? 4 IF .PP EQL 0 ; 
; 645 718 4 THEN 3 
3 6e6 ah 4 ; RETURN (SMG$_FATERRLIB); ! should never be 0 : 
; a8 f ? ? WHILE -PP NEQ DCB COCB_A_PP_NEXT] ! While any remain... : 
: 650 358 BEGIN ; 
3; 6651 724 PP C[PP_A_DCB_ADDR] = epee: ! To orig. DCB ; 
3 63¢ 725 PP = .PP”(PP_A_NEXT_DCB); ! To next packet 3 
3 $3 7 $ 4 END; : 
ERE ' : 
; 636 7 : 4 i If DCB_V_PP_MISMATCH is set, a change has been made to ; 
3 65 730 4 ! this DUB which requires the pasting packet constants to be : 
3 638 731 4 ' recalculated. However, the DCB was ‘batched’’ at the time 3 
; 65 7 § 4 ' the change took prece so we do the pasting packet update 3 
; 660 733 4 i now as part of the unbatching process. : 


Be Oe Oe Be Oe Se Se Se Se Se Se Se Ge Se Se Ge Ss Ge Se BH Se FH Se Se SH Se Se SH Se Se Ge FF Se SESE SES SH Se Se Se Se SESH Se Se Se Se Ge Fe ae Sets Se ese Seas 


sn ISPLAY_OUT eneep ish. AY_OUTPUT = Output Virtual Displays 1b-50 S$ep-1984 7:4 AX-11 Bliss-32 V4.0-7 Pa 17 
eng33 MGSEND_DISPLAY_UPDATE = tnd batch of Updates t 1 900-1 3B 99: boi2 SMGRTL.SRC SGD SOUT. 8 2;1 ” (5) 

£83 tee if .DCB CDCB_V_PP_MISMATCH] 

sek re § Rh ar er elisa A 
! Unbatching clean u ; 

665 738 LOCAL 

606 54 CURR_PP : REF SPP_DECL; ! Addr of a pasting packet : 

O98 Ore IF NOT (STATUS = SMGSSRECALC_PP_FIELDS (.DCB)) : 

670 rg RETURN (.STATUS); : 

671 0744 : 

of th? DCB CDOCB_V_PP_MISMATCH] = 0 ; ! Knock down flag ; 

674 ok, 1+ ; 

675 748 i Since DCB_V_PP_MISMATCH was set, the change to the DCB : 

676 0749 ! included a\aend ional changes. this means we will have F 

677 0750 5 i to remap the whole pasteboard buffer from the bottom $ 

ors B72) : te outward -- for each pasteboard that we are pasted to. : 

680 oreg 5 CURR_PP = .DCB CDCB_A_PP_NEXT); ; 

681 0754 é 3 

68 0755 IF .CURR_PP EQL 0 ; 

68 0756 5 3 

one Et : RETURN (SMGS$_FATERRLIB); ' should never be 0 : 

686 0759 5 WHILE .CURR_PP NEQ DCB CDCB_A_PP_NEXT] F 

687 0760 5 dO : 

688 0761 6 BEGIN ! For all pasteboards 

689 B76 6 LOCAL 

690 0765 6 PBCB : REF $PBCB_DECL; Addr of a pasteboard 

691 boee 6 ' control bisek 

69 765 6 

69 0766 6 PBCB = .CURR_PP CPP_A_PBCB_ADDR]; 

one 1h t IF NOT (STATOS = SMGSSCHECR_ FOR OUTPUT _PBCB (.PBCB)) 

698 0776 ? RETURN (.STATUS); ! Quit on first failure 

698 771 CURR_PP = “CURR. PP CPP_A_NEXT_DCBJ; ! To next packet 

444 ore END; ! For all pasteboards 

00 146 

701 774 peru (SS$_NORMAL) ; 

70 14 5 END ! Unbatching clean up 

70 776 5 

ope 777 & ELSE 

705 778 4 

8 Ag eon ' No cleanup needed 

708 781 i Call SMGSSCHECK_ A _OUTPUT_DCB to cause the contents 

709 7 < i of this virtual display to be flushed to the screen. 

710 7 ' If that fails, then return its status as our status. 

711 7 ! If that succeeded then return our previously 

ns f 5 i. calculated status. 

714 7 STATUS = SMGSSCHECK_FOR_OUTPUT DCB ( 

715 7 8 SMGSC_END_ POT SPLAY _UPDATE); 

ay 7 IF » STATUS THEN STATUS=. BATCH STATUS 

71 790 4 END; ' No cleanup needed 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:4 AX-11 Bliss-32 V4.0-74 P 1 
emg33 ~"" SMGSEND_DISPLAY_UPDATE =PEnd batch of wee es t 1 =3007 138% tert: SMGRTL.SRCJSMGDISOUT.B32;1 a (33 
: 718 791 END; ' Reduction from 1 to 0 
3 £38 3 END; ' Level is currently 0 or 1 
: 781 794 RETURN (.STATUS); 
° Py } na of routine 
722 795 END ! End of routine SMGSEND_DISPLAY_UPDATE 
001¢ 0000 .ENTRY SMGSEND_DISPLAY_UPDATE, Save R2,R3,R4 : 9621 
01 ¢ 9 000 CMPB «CC AP?), aT : 0670 
1 BEQL : 
50 000000006 &F p6 S000 HOVL #SMG$_WRONUMARG, RO ; 
50 04 BC DO OO00F 1$: MOVL  @DISPLAY_ID, RO t 0672 
04 BC 8 AO D1 00013 CMPL  56(RO), SDISPLAY_ID : 
06 12 0018 BNEG «2 ; 
11 44 AO 91 OOO1A CMPB = 68 (RO), #17 : 
8 13 OO1E BEQL 6 3$ ; 
: OVL _INVDIS_ID, R F 
50 000000006 8F v6 00 g 2$ MOV WSMG$_INVDIS_ID, RO 
52 04 BC DO 00028 3s: MOVL § @DISPLAY_ID, DCB : 
01 1C A2 D1 000eC CMPL 28(DCB),~#1 + 0680 
0B 15 000 BLEQ 4$ ; 
1¢ A2 07 000 DECL  28(DCB) > 0683 
50 000000006 8F BO 00 3 MOVL #SMG$_BATSTIPRO, STATUS : 0684 
54 01 00 9005p 4$: MOVL #1, BATCH_STATUS > 0693 
1¢ «A2 OD 0040 TSTL 8 (nce) > 0694 
08 12 0004 BNEQ ‘ : 
50 000000006 8F Bo bance MOVL #SMGS$_BATWASOFF, RO + 0696 
1¢ A2 D4 00040 5$: CLRL gg(0¢B) : 0703 
51 20 =A 09 9990 MOVL 2(DCB), PP : 0715 
2D 13 00054 BEQL 8 : 0717 
53 20 Ae H: 0056 6$: MOVAB (DCB), R3 > 0721 
53 51 D1 OO05A CMPL = PP, R : 
09 13 005 BEQL 86 7$ : 
10 Al DO 0005F MOVL DCB, 16(PP) + 0724 
51 61 D0 0065 MOVL (PPS, PP : 0725 
11 00 66 BRB $ : 0721 
3E 34 A2 E1 00068 7$: BBC #3, 52(DCB), 118 : 07 5 
DD 9 D PUSHL 8 : 0741 
000000006 00 FB f CALLS g pT SMOSSRECALC_PP_FIELDS : 
34 «A BA O78 BICB2 a DCB) > 074 
5 20 A p 7D VL (p(B), CURR_PP : 075 
0 6 1 BNEQ : 075 
50 000000006 &F i 3 8$: MOVL #SMGS_FATERRLIB, RO ; 0757 
1 20 A 9$: MOVAB 32(DCB), R1 : 0759 
1 5 p ef CMPL RR_PP, RI ; 
1 32 BEQL : 
51 14 Ad D MOVL  20(CURR_PP), PBCB : 0766 
31 DD 00098 PUSHL Pace : 076 
0000v CF 1 FB OOO9A CALLS #1, SMGS$SCHECK_FOR_OUTPUT_PBCB : 


10 
SAGs ISPLAY_OUT SRGSDISPLAY OUTPUT = Output Virtual Bispteys , 18-Sep-1984 90:32:40 aed bietsee Veaer'e 2:1 


SMGSEND_DISPLAY_UPDATE = End batch of upda Sep- SMGR SOUT 
18 59 E 9F BLBC STATUS, 12$ 
5 6 p A MOVL CURR_PP) , CURR_PP 
Fs A BRB 9 
50 1 pO A? 108 MOVL #1, RO 
4 QOOAA ET 
1D DD OOOAB 11$: = PUSHL = #29 
52 DD OOOAD PUSHL o¢B 
0000v CF FB OOOAF CALLS @ SHGSSCHECK_FOR_OUTPUT_DCB 
E B4 BLBC STATUS, 12$ 
4 dO 0087 MOVL | BATCH_STATUS, STATUS 
4 OOOBA 128: = RET 


; Routine Size: 187 bytes, Routine Base: _SMGSCODE + 0085 


s Te 0796 1 !<BLF/PAGE> 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:40 AX-11 Bliss-32 V4.0-74 Page 20 
4 SMGSEND. PASTEBOARD UPDATE - End batch o update 13-80 8=138e 90:59:40 SMGRTL.SRCJSMGDISOUT.B352;1 . (6) 
5 ges 797 1 ZSBITL "SMGSEND_PASTEBOARD_UPDATE = End batch of updates to pasteboard' ° 
: f § f : ! GLOBAL ROUTINE SMGSEND_PASTEBOARD_UPDATE ( PBID ) = ‘ 
; f 8 89 ! FUNCTIONAL DESCRIPTION: ; 
; 730 § 1: Reduce the number of calls to SMGSEND_PASTEBOARD_UPDATE that will : 
s 5) 1} be needed before we resume outputing from this pasteboard. If : 
a ¢ 06 1! this call makes this count go to zero, flush the pasteboard to ; 
. £ 805 1! the screen. . 
: 734 B08 1] f the level is hey | 0, we return a success status : 
; 735 0807 1! nforming caller that the batching level was already 0, > 
; £ § tt 1! but we otherwise allow this. This gives a user a guaranteed : 
; £ 09 1! method of ending batching. ; 
; ia 0810 1! . 
; 739 Bais 1 ! CALLING SEQUENCE: ; 
: 740 He 1! ; 
3 o) Saiz \ ret_status.wlc.v = SMGSEND_PASTEBOARD_UPDATE ( PBID.rl.r) : 
3; 74 0815 1 ! FORMAL PARAMETERS: : 
> 744 0816 1! : 
3; 745 0817 1! PBID.rl.r Pasteboard id. ; 
: 746 0818 1! ; 
3: 747 0819 1°! IMPLICIT INPUTS: : 
: 748 0820 1! 
3 749 0821 1! PBCB CPBCB_L_BATCH_LEVELJ 
s ro 08 § 1! 
s 6 08 1 ! IMPLICIT OUTPUTS: 
3 PE 0824 1! 
; ay tH ! PBCB CPBCB_L_BATCH_LEVEL] gets decremented 
3 95 bB56 1 ! COMPLETION STATUS: 
3; 756 0828 1! 
s Tor +4 ££ S$S$_NORMAL Normal successful completion 
: 738 0830 1! SMGS_BATSTIPRO Success; but patching is still in progress. 
3; 759 0831 1! SMG$_INVPAS_ID Invalid Pasteboard | 
3 ooo ba38 ' SMG$_BATWASOFF Success; but batching was already off 
3 poe 0834 1 ! SIDE EFFECTS: 
; 0835 1! 
: 764 0836 1! NONE 
; 765 ete 1 !-- 
: 766 Se5 1 
3: 767 0839 BEGIN 
; 768 Bey LOCAL 
3; 769 41 STATUS, ' Status vo return 
3 gy ¢ PBCB : REF BLOCK C,BYTE); ! Addr of pasteboard control block 
a wr 44 '¢ 
3 a6 rf : Check for right number of arguments. 
3 46 4 SSMGSVALIDATE_ARGCOUNT ( 1, 1); 
$ a ; SSMGSGET_PBCB (.PBID, PBCB); ! Get PBCB address 
: 44 34 RETURN (SMGS$SEND_PASTEBOARD_UPDATE_R2 (.PBCB)); ! Do work in inner routine 
: 781 0 3g END; ! End of routine SMGSEND_PASTEBOARD_UPDATE 


N 10 

SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:40 AX-11 Bliss-32 V4.0-74 P 1 
1-07 SMGSEND. PASTEBOARD_ UPDATE = End batch of update 1o=8e8- 1382 90:09:66 SMGRTL SREISHEDY SOUT 682: 1 “at (3) 
0004 00 ~ENTRY SMGSEND_PASTEBOARD_UPDATE, Sa R2 3; 0798 
01 6¢ $1 00g cHPB P), ss <9 3 0847 

50 000000006 BF D0 0007 OVE #SMG$_WRONUMARG, RO ; 
50 04 Bt 06 0 o 1$ MOVE @PBID, RO + 0849 

000000006 00 50 D} § 13 CHPL RO, PBD_L_COUNT ; 

08 000000006 00 20 E0 6 1E BBS RO, PBD_V_PB_AVAIL, 3$ : 

50 000000006 &F BO 00 6 2$ MOVL #SMG$_IRVPAS“1D, RO ; 

50 0000000060040 0 OOCE 3$ MOVL  PBD_A_PBCB[RO], PBCB : 
0000v 30 0 é BSBW SMGSSEND_PASTEBOARD_UPDATE_R2 : 0851 


; Routine Size: 58 bytes, Routine Base: _SMGSCODE + 0170 


; 782 0854 1 !<BLF/PAGE> 
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SMGSF IND_CURSOR_DISPLAY Find which virtual di 12-8ep-19 4 90 doice SMGRTL.SRCJSMGDISOUT.B32;1 2 35 
5 1 ZSBTTL ‘SMGSFIND CURSOR DISPLAY - Find which virtual display contains physical cursor’ 
§ 1 GLOBAL ROUTINE SMGSFIND-CURSOR_DISPLAY ( 
1 PASTEBOARD_ID, 
28 1 DISPLAY_ID 
59 1 = 
60 1 !4+ 
$2) : FUNCTIONAL DESCRIPTION: 
508 ' 7 This routine determines which virtual display contains the 
864 1! current physical cursor on the screen. The pasted virtual 
0865 1! displays are searched from the deepest pasted one to the 
+ h44 7! outermost pasted one. The outer-most virtual display that 
or 3 4 encompasses the physical cursor is the one selected and its 
944 } display id is returned. 
0870 1! It is possible that no virtual display contains the cursor, 
+e 1! in which case a display id of zero (an invalid display id) is 
AG 2 returned. 
0875 1! 
Baee : CALLING SEQUENCE: 
0876 1! ret_status.wic.v = SMGSFIND_CURSOR_DISPLAY ( 
0877 1! PASTEBOARD_ID.rl.r, 
0878 1 | DISPLAY_IDvwl.r) 
0879 1! 
tt} ! FORMAL PARAMETERS: 
tt) .* PASTEBOARD_ID.rl.r Address of a longword containing the 
0883 1! pasteboard_id for the device for which 
page : the information is desired. 
Dene Ee DISPLAY_ID.wi.r Address of a longword to receive the 
0887 1! virtual display_id of the virtual 
0888 1! ap which contains the cursor. 
0889 1! The outer-most pasted virtual display 
0890 1! that contains the cursor is selected. 
0891 1! If no virtual display can be found, 
0892 1! a display id of 0 ( an invalid display 
0893 1! id) is supplied. 
0894 1! 
0895 1! 
0896 1 ! IMPLICIT INPUTS: 
ae 
0a99 | | 
0900 1 ! IMPLICIT OUTPUTS: 
0901 1! 
Bans ie: NONE 
903 1! 
0305 : COMPLETION STATUS: 
H's 1: SS$_NORMAL Normal successful completion 
907 1! SMGS_INVPAS_ID Invalid pasteboard id 
4 : SMG$_WRONUMARG Wrong number of arguments 
910 1 ! SIDE EFFECTS: 
911 1! 


SMGSDISPLAY_OUT 


DAAAAAAAGIIT 
COOWDNAUES WN —OOOND 
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it -PP EQL 0 
RETURN (SMGS$_FATERRLIB); ! should never be 0 
WHILE .PP NEQ PBCB CPBCB_A_PP_NEXT] 
- ashy ! For all pasting packets 
PP_BASE : REF $PP_DECL; ' Base address of a pasting 
! packet 
PP_BASE = .PP = PP_PB*%_QUEUE_OFFSET; 
a aaa CPP_W_ROWS_TO_MOVE) NEQ 0 
aah ! Projects somewhere on visible pasteboard 


D_PROJ . BLOCK (8,BYTEJ; ! Representation of virtual 
! display's projection on 
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SMGS$F IND_CURSOR_DISPLAY : Find which virtual di 12-808-1 382 99:30:48 SMGRTL. atisneo! gout 6$2;1 . 3 
' 
nie = 
914 BEGIN 
915 LOCAL 
0317 PBCB : REF $PBCB_DECL, ! Address of pasteboard control block 
318 WCB : REF SWCB_DECL, ! Address of window control block 
03 0 PP; ! An address pointing at the PP queue 
921 ! header in a pasting packet. This 
9 § ' address is not the base of the 
2 ? ! pasting packet. 
2 2 ; Check for right number of arguments. 
0927 SSMGSVALIDATE_ARGCOUNT ( 2, 2); 
8S 
at Get address of pasteboard control block and the WCB that goes with it. 
O38 SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB ); 
O38 wCB = .PBCB CPBCB_A_wWCB); 
§33¢ + 
boas 4 Set up an answer of none in case search turns up nothing. 
0938 2 .DISPLAY_ID = 0; 
0940 9 t+ 
0941 i Search all the asting packets for this pasteboard, from the deepest- 
b94 4 ! pasted one to the outer-most pasted one. For each such pasting 
094 ' packet, see if the physical cursor position Lies inside the 
0944 ! mapping of the associated virtual display. For each virtual eh eet ay 
0945 ! found, set up output parameter. The last one found (if any) will be 
boee the one the caller sees. 
0948 "PP = .PBCB CPBCB_A_PP_PREV]; ! Start with inner-most pasted one 
4 
4 
4 
4 
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Sep-1986 3:09:46 ESmantuc see Ssmep!SOuT-682; 1 sng 


ep- SMGRTL.SRCJSMGDISOUT.B 


Dd 
SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16- 
itd SMGSF IND_CURSOR_DISPLAY : Find which virtual di 122 
! 


; 839 30 ; pasteboard. 

; 900 a7) 4 D_PROJ CDCB_W_ROW_START] = .PP_BASE CPP_W_FIRST_WCB_ROW]; 

: 90 378 4 D_PROJ CDCB_W_NO_ROWS] = .PP_BASE FPP _w_LAst WCB_ROW] - 

4 rt are : -PP_BASE PP-W_FIRST_wWCB_ROW] +1; 
; ope 3f8 2 D_PROJ CDCB_W_COL_START] = .PP_BASE CPP_W_FIRST_WCB_COLJ; 

; 309 978 4 D_PROJ CDCB_W_NO_COLS] = .PP_BASE CPP_W_LAST WCB COL] - 

; 908 0979 4 -PP"BASE CPP_W-FIRST_WCB_COLJ +1; 
; 909 464 4 

; 910 981 4 + 

; 911 44-04 4 ! Check to see if cursor Lies within projection of this 

: aig 09835 4 ' virtual display. 

s #1 0984 4 t= 

: 914 0985 4 iF SMGSSPOINT_IN_RECT_R3 (WCB WCB_W_OLD_CUR COL], 

: 915 0986 4 WCB CuCBW-OLD-CUR-ROW], 

:; 916 0987 4 D_PROJ) EQc 

; 917 0988 4 HEN 

H a8 94.34 2 -DISPLAY_ID = .PP_BASE CPP_A_DCB_ADDR]; ! Save candidate 
: 320 0991 END; ! Projects somewhere on visible pasteboard 

: 35§ 099 PP = .PP_BASE CPP_A_PREV_PBCB] ; ! To next outer pasting 

; 92 0994 END; T For all pasting packets 

: 924 0995 

; 925 0996 RETURN (SS$_NORMAL); 

> 926 0997 1 END; ! Routine SMG$FIND_CURSOR_DISPLAY 


OOFC 00000 -ENTRY vy gl mermaids Save R2,R3,R4,R5,- ; 0856 
SE 08 ¢2 0000 SUBL2 #8. SP : 
02 6C $9 9009 CMPB (AP), #2 + 0927 
08 13 00008 BEQL : 
50 000000006 8F v6 000A MOVL #SMGS$_WRONUMARG, RO 
50 04 BC 00 0012 1$: MOVL § @PASTEBOARD_ID, RO : 0932 
1 1 0016 BLSS : 
000000006 00 g p| 001 CMPL RO. PBD_L_COUNT : 
4 1F GTR 2 3 
08 000000006 99 0 Ed 90 1 BBS RO, PBD_V_PB_AVAIL, 3$ ; 
0 000000006 &F BO 6 9 2%: MOVL #SMGS_INVPAS"1D, RO 
56 0000000060040 00 80 1 3$: MOVL §_PBD_A_PBCBCROJ, PBCB : 
57 A6 D 039 MOVL 8(PBCB), wCB $ 0933 
BC 04 5 3 CLRL @DISPLAY_1D ; 09 
55 4 ag D 4 VL PBCB) , "PP > 0948 
0 1 hb BNE  4$ : 095 
50 000000006 8F 06 46 #SMG$_FATERRLIB, RO ; 095 
5 4E 4$ MPL PP, ~PBCB > 0954 
os 7 “f BEQL 6$ é 
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aeoPe SMGSFIND_CURSOR_DISPLAY = Find which virtuel di 1 =300 =} 382 90: 35;28 SMGRTL.SRC Shep Sour 682; 1 ° 3 

54 f8 OAS OO ; MOVAB <8(R5), PP_BASE : 0961 ; 

re Ad g TSTW (PP_BASEY : 0963 ; 

40 A BEQL ; ; 

f FOG f MOVW 47(PP BASE, D_PROJ + 0971 ; 

1 Ab 3C 0006 MOVZWL CFP BA ° R + 0974 3 

1 F AG MOVZWL 47(PP- Base): R r : 

: 1 ¢ 8 SUBL ¢ R1, RO : : 

02 AE ; ADDWS #1. RO, D_PROJ+2 : : 

04 Ar AG BO 000 MOVW yipp. BASE), D_PROJ+4 : 0976 ; 

AG 3¢ 07 MOVZWL 53(PPBASE). RO + 0979 : 

1 AG 7 MOVZWL 51(PPTBASE). R : : 

'.£ 007 SUBL ¢ R1, R : : 

06 AE 1 A ADDWS #1, RO, D_PROJ+6 : ; 

5 6E 9E 00 MOVAB PROJ, R2 + 0986 ; 

51 34 A? 9E 000 MOVAB BcwcBs, R1 : : 

50 6 A? 3 00 MOVAB (WCB). RO + 0985 ; 

0000v 00 BSBW § SMGS$POINT_IN_RECT_R3 : 09 ; 

50 05 009 TSTL = RO + 0987 : 

05 if 009 BNEG © 5$ : : 

08 ac 10 A’ DO 00097 MOVL  16(PP -BASE) aD ISPLAY ID > 0989 ; 

55 0C Ad 00 0009¢ 5$: MOVL §_12(PP“BASE) > 0993 ; 

AC 11 OOOAO BRB 4$ > 0954 ; 

50 07 D0 O000A2 6S: MOVL #1, RO + 0996 3 

04 000A5 RET : 0997 : 

3; Routine Size: 166 bytes, Routine Base: _SMGSCODE + O1AA . 


; 927 0998 1 !<BLF/PAGE> 
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SMGSCONTROL_MODE - Controt overall node of oper 12286871382 99:50:48 ORE 


ZSBITL ‘SMGSCONTROL_MODE = Control overall mode of operation’ 
GLOBAL ROUTINE SMGSC : 4 


ONTROL_MODE ( 
PASTEBOARD_ID, 
NEW_MODE _BITS, 
OLD-MODE-BITS 
= 


i FUNCTIONAL DESCRIPTION: 


This routine allows the caller to interrogate various modes 
of the overall operation of the SMG$ package, and to change 
those modes. Each pasteboard (hence device) has its own set 
of mode settings. 


The modes currently defined are: 


1. Use of buffers. Under normal operation, the SMG$ 
package wili output to the terminal as soon as it has 
determined what needs to be written. That is, no 
internal buffering will be done. This mode is the 
default because it requires no follow-up effort on the 
part St ane user to periodically force the buffer to the 
erminal. 

However, greater efficiency of $Q10 usage can be 
achieved H enabling buffering. In this mode, the SMG$ 
package buffers all of its output for efficient usage of 
QI0's. The caller can at any time call 
SMGSFLUSH_BUFFER to force to the screen any output which 
has been queued to the screen, but not yer actually 
output. For example, in this mode, each input operation 
initiated via the SMG$ facility will force a 
SMGSFLUSH_BUFFER call. 


Default setting is to not provide buffering. 


2. Minimal screen update. Unless explicitly told not 
to, the SMG$ package will ty to minimize the number 

of characters octust ly sent to a terminal to increase 
overall system throughput. It achieves this in part by 
remembering what is currently on the screen and actually 
output ing only the specific character sequences which 
will change the current contents of the screen into the 
desired contents of the screen. As a result o is 
action, the original sequence of changes may not be 
preserved. Genera Ly. the eqreen is repainted so 
rapidly the this difference is not noticable since the 
peeut cans screen appears the wey it should. In rare 
circumstances, per ers while d ugging a new 

spplicat on, the caller may which to chenge this 
behavior to strictly preserve the order of his output. 
The default mode is to perform minimal green update. 
There is currently not much difference you omit this 
bit becouse it really doesn't make much sense to repaint 
the entire screen uaee you change just one character, 
but this may change in uture releases. for now, 

you should always specify this bit. 
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; 9 1 13 ; 
ee. 1 § }} 3. CLEAR_SCREEN. If this bit is set, then when SMG exits ‘ 
; % 1 8 1} normally, it will clear the screen just before returning : 
; 358 : , : control to DCL. ‘ 
; «991 199) , 4. NOTABS. If this 1 is set, then SMG will never rely : 
; 836 1 86 1} on phys cal tabs even if the terminal supports them. ; 
; 99 1065 1! If not set, then SMG will feel free to use physiol ‘ 
> 994 1064 1! tabs for the minimal useere procedure. Such use implicitly : 
; 995 1065 1! assumes that your terminal's tab stops are set to the ; 
3 238 1298 1: DEC default locations. Set this bit if you want to guarantee ; 
; 99 199 1! that your product will run regardless of the tab settings : 
3 238 1Se8 : that the user has physically set on his terminal. : 
; 1000 1070 1! The three parameters are optional. First, if OLD_MODE_BITS : 
: 1001 1071 1! is weap te it is filled in with the current mode bit settings. : 
: 1008 107 1} Secondly, if the NEW_MODE BITS parameter is provided, its : 
: \Sor te : contents are used to set the current mode(s) of operation. : 
; 1005 1075 1! Hence this routine can cvesee st be used in three way. : 
: 1006 1076 1! a). o find out current set ings: : 
: 4's 34 144 : SMGSCONTROL_MODE ( PASTEBOARD_ID, , OLD_MODE_BITS) ; 
: 1009 1079 1! b). To set the bits with no regard for their current setting: ; 
; 1oi0 + : SMGSCONTROL_MODE ( PASTEBOARD_ID, NEW_MODE_BITS) ; 
3 ISl¢ 1Oag 1! c). To write modular code, saving the current settings. 2 
3; 101 10835 1! setting them to your desired setting, then restoring ; 
: 1014 1084 1! original settings before exiting your procedure: : 
1018 1086 | | wprepinndend Xe, re ; 
3 1 $ } * a » saved_mode_bits : 
; 1017 1087 1! and before exiting. ; 
; 1018 1088 1! SMGSCONTROL_MODE ( PASTEBOARD_ID, saved_mode_bits ) : 
: 1019 1089 1! ’ 
; 1930 1090 1! : 
; 1021 1091 1 ! CALLING SEQUENCE: : 
; ose 1036 BR : 
3; 10 1093 1! ret_status.wlc.v = SMGSCONTROL_MODE ( PASTEBOARD_ID.rl.r, . 
7 1024 1094 1! NEW_MODE BITS.rl.rJ, : 
3 1025 1095 1! OLD“MODE-BITS.wi.rd ) : 
; 10 § 1096 1! : 
3; 10 1097 1 ! FORMAL PARAMETERS: : 
3; 1028 1098 1! : 
: 1029 1099 1! PASTEBOARD_ID.rl.r The id of the PASTEBOARD for which the ’ 
3 19 ? 1109 : modes are being set or interrogated. : 
; 1082 1108 e. NEW_MODE BITS.rl.r COptional). If suppt ted. new mode : 
3: 103 1103 1! settings to be employed. : 
3; 10 1198 1! A bit set to 1 forces that mode to be : 
3 18 5 1105 1! employed. A bit set to 0 inhibits that | 3 
3 1 1198 1! mode of operation. : 
: 10 11 7? Bit SMGSK_BUF _ENABLED controls buffering. 3 
71 1198 1! This should normally be set to improve : 
3; 1039 11 ;! por rereance, : 
; 1040 1110 1! t SMGSK_MINUPD controls minimal update and : 
3; 1041 mma should normal x be set. é 
3 1042 1112 1°! Bit SMGSK_CLEAR_SCREEN causes SMG to clear : 
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i IMPLICIT INPUTS: 


SESEFERSE 


i IMPLICIT OUTPUTS: 


& 


i COMPLETION STATUS: 


ALL ~ote eM ng “blis must be zero to allow 
for expansion in the future. 


FOptional?. If supplied, will be filled 
n with mode rina prior to this call. 
A bit set - mereetee that the mode 


x set te to 0 indicates 
that the rnede at c. bited 

Bit F_ ENABLED controls buffering. 

Bit SM Osk “BYNOBD controls minimal update. 

Bit emesk- “CLEA R_SCREEN causes SMG to clear 
the screen upon normal exit. 

Bit SnGSK -NOTABS prevents use of physical tabs. 
ALL remaining bits will be zero to allow 

for expansion in the future. 


Normal successful one et 


Invalid arguement. 


Bits corresponding t 


ported functions supplied in NEW MODE BITS 
id pasteboard id. 
Wrong number of arguments. 
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3 BEGIN 
5 4 BUILTIN 
5 NULLPARAMETER; 
; LOCAL 
8 PBCB : REF BLOCK (,BYTE); ! Address of associated 
By ! pasteboard control block. 
03 SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB) ; ! Get address of PBCB 


So 
4 


14 
If caller requested current settings, return them. 


i 6 NULLPARAMETER (OLD_MODE_BITS) 
-OLD_MODE_BITS = .PBCB CPBCB_L_MODE_SETTINGS); 


333 


33 


‘+ 
If caller provided new settings, process them. 


ti" NULLPARAMETER (NEW_MODE_BITS) 
BEGIN ! Caller provided new settings 


+ 
} First make sure that he didn't supply extraneous bits 


oononownovond Wt tet ty} tet tert PPR PRN RP ASN AE 85 Oe 


i 


BIND NEW_MODE = .NEW_MODE_BITS : BITVECTOR(32); 
1 ! 
' IF .(.NEW_MODE_BITS)<4,29> NEQ 0 
; RETURN (SMGS$_INVARG) ; ! Unsupported bits provided 
1 + 
1 ! If he's switching from buffered to non-buffered, flush out 
: } current contents of buffers so we are caught up. 
1 if .PBCB CPBCB_V_BUF_ENABLED] AND ' If currently enabled 
! Nor -NEW_MODECSMGSK_BUF_ENABLED] ! and new disabled 
: SMGSSFLUSH_BUFFER ( .PBCB ); 
1 + 
1 ! If he's switching from no minimal upsets to minimal update, 
1 then ensure that the screen buffer is up-to-date. 
if NOT .PBCB_CPBCB_V_MINUPD) AND ‘if currently disabled 
THE MODEL SRGSKATHUPO I ' and new enabled 
BEGIN ! update screen buffer 
BIND WCB = .PBCB CPBCB_A_WCB) : BLOCK C,BYTE); 


' Move the current text and attributes buffers 
! to the corresponding screen buffers. 
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0833 SMGSCONTROL_MODE - Controt overall node of oper 1 ~Sep-19 4 99:50:48 SMGRTL SRE ISHED! SOUT 89251 ’ (ds 
3 1141 1210 4 - 
; 1306 1211 4 
3; 114 1 \ 4 CHSMOVE (.WCB Puce. .BUESIZED- uct CWCB_A_TEXT_BUFI, 
3 Wee : i? ? -WCB CWCB_A_SCR_TEXT_BUF J); 
> 1146 1215 4 CHSMOVE(.WCB PUCO 1 .BUESI IED. wee CWwCB_A_ATTR_BUFJ, 
: 1147 1 16 4 WCB CWCBTA~SCR_ATTR.BUF J); 
> 1148 1217 4 
3 1149 1218 4 + 
; 1150 1219 4 ' Move the text Line ghecectorietics vector to the screen 
3 ar} : Y : text Line characteristics vector. 
; 1188 1 § 4 CHSMOVE(.WCB CWCB_W_NO_ ROWS) +1 WCB CWCB_A_LINE_CHAR], 
: 1136 : 4 WCB CWCBTA“SCR_LINE_CHAR); 
3; 1156 1225 END; ! update screen buffer 
3 1157 1226 
3; 1158 1227 + 
: 1123 \§ 3 Finally, reset modes based on callers wishes. 
3 1163 1386 PBCB CPBCB_L_MODE_SETTINGS] = ..NEW_MODE_BITS; 
; 1108 1332 END; ! Caller provided new settings 
> 1164 123 
3: 1165 Sze RETURN (SS$_NORMAL) ; 
> 1166 1235 
: 1167 1236 (1 END; ! Routine SMGSCONTROL_MODE 
OOFC 00000 «ENTRY SMGSCONTROL_MODE, Save R2,R3,R4,R5,R6,R7 : 1000 
50 04 BC o0 0002 MOVL § @PASTEBOARD-1D, RO : 1161 
11.=«1 B388 BLSS 1 é 
000000006 00 50 D1 0000 CMPL RO, PBD_L_COUNT j 
98 14 QOOOF BGTR 1$ 3 
08 000000006 00 Fe Bet BBS RO, PBD_V_PB_AVAIL, 2$ ; 
50 000000006 &F BO 19 1$ MOVL #SMGS_IRVPAS-1D, RO ; 
57 0000000060040 0 1 2$ MOVL PBD APOCBERO) PBCB 3 
0% 6C 1 9 CMPB (AP), # : 1167 
OA 1F 0002C BLSSU. 3 ; 
0c A 9 F TSTL Tal 3 
0 BEQL ; 3 
oc 3=«BC 0c A 3 MOVL 2(PBCB), @0LD_MODE_BITS : 1169 
02 g¢ 1 3$: CMPB (AP), #2 3 1174 
1F BLSSU 7$ 3 
08 AC rf TSTL 5 AP F 
4E 4, BEQL 4 3 
50 08 BC 1D o3 FF r pure ee" #29, @NEW_MODE_BITS, RO : 1183 
50 00000000G_ 8F 06 oA aay #SMG$_INVARG, RO : 1185 
3 Oc A7 3 ¢ 4$: BLBC 12(PBCB), 5$ 3 1191 
9 BC E BLBS § @NEW_MODE BITS, 5$ : 1192 
dD A PUSHL PBCB 3 1194 
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70633 ne SMGSCONTROL_MODE - Controt overalt node of oper 12286-1382 99:59:4 SMGRTLe SREISHGD! SOUT. B92: 1 . 3) 
000000006 0 1 ¢ 5 CALLS #1, SMGSSFLUSH_BUFFER ; 
3 oe a9 a £0 5 ss: eee PRET £1200 
E BC } E BBC #1, @NEW_MODE_BITS, 6$ : 1 91 
A D MOVL. 8(PBCB),~R6 + 1205 
14 B86 08 B6 Ab 1 MOVC 40(R6), a8(R6), @20(R6) + 1213 
18 B6 C 86 Ab 078 MOVC3 40(R6), a12(R65, a24(R6) + 1216 
0 A C 7F MOVZWL 2(R6), RO 3; 1222 
5 06 0085 INCL RO 3 
30 B86 2c 6 50 28 00 MOVC3 RO, @44(R6), @48(R6) : 1223 
OC A? 08 BC DO 00088 6s: MOVL § @NEW_MODE_BITS, 12(PBCB) + 1230 
50 07 dO 90090 7$: MOVL #1, RO + 1234 
04 0009 RET : 1236 


; Routine Size: 148 bytes, Routine Base: _SMGSCODE + 0250 


1 
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smge3 ‘ j yt ~3eP7 138% 99:35:2 SMGRTL.SRCISMGDISOUT B32; 1 9 485 


1 
ALIDATE_DISPLAY = Mark display as being 1 
ZSBITL ‘SMGSINVALIDATE_DISPLAY - Gere "5 


$ S$ 
Ss Vv 
3 1368 1237 1 pia as being privately used’ 
3 1109 ; 3 : GLOBAL ROUTINE SMGSINVALIDATE_DISPLA SPLAY_ID) = 
: 1106 1240 1 !4+ 
3 a6, : rt ! FUNCTIONAL DESCRIPTION: 
3; 1175 1 rk 1! This routine is called when ever a change has been completed 
3; 1176 1244 1! to a given virtual display and the user had previously 
3 1177 1245 1! written into that display on his own, without using 
3; 1178 1 ‘3 1! SMG routines. 
3: 1179 1247 1! 
; 1199 \ rt ! The virtual display must not be occluded. 
3 1186 1250 1! Each pasteboard to which this display is pasted is isolated and 
; 118 1251 1! its window image must be redrawn. 
: 1184 1 28 1! 
: 112 ! 27 : } CALLING SEQUENCE: 
: HY 24 ! 2? ! ret_status.wlc.v = SMGSINVALIDATE_DISPLAY ( DISPLAY_ID.rl.r) 
; 1189 1257 1 ! FORMAL PARAMETERS: 
; 1190 1258 1! 
3 1191 1259 1! DISPLAY_ID.rl.r Display ID of virtual display. 
: 138 1260 1! 
3 119 1261 1 ! IMPLICIT INPUTS: 
3 1194 1 66 1! 
3; 1195 1$6 1! NONE 
3; 1196 1264 1! 
3 1197 1692 1 ! IMPLICIT OUTPUTS: 
3; 1198 1266 1! 
3: 1199 1267 1! NONE 
: 1200 1268 1! 
: 1201 1269 1 ! COMPLETION STATUS: 
; 1s08 1270 1! 
; 120 1271 1! SS$_NORMAL Normal successful completion 
> 1204 iste 1! 
3; 1205 \¢? 1 ! SIDE EFFECTS: 
: 1206 1274 1! 
3; 1207 1275 1! NONE 
: 1208 1276 1 !-- 


SM BISPLAT OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 
1- SMGSINVALIDATE_DISPLAY = Mark display as being 


Be Oe Oe Oe Oe Be Oe Oe OH Se Oe SE SF Oe Ot SESH Se Se Se Setee 
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; Routine Size: 


8 ed a a Ha a ts a ts ns wt 


POPOPIPIPIPIPIPIPIPINOPPoPyNnofnonospopopofpofror 


77 BEGIN 

EXTERNAL ROUTINE 
SMGSSINVALIDATE_DISPLAY; 

LOCAL 


+ 
Check for right number of arguments. 
SSMGSVALIDATE_ARGCOUNT ( 1, 1); 

+ 

Call the internal routine. 


000000000009 00 CoCD CUCU CDCO ~~ 


3233 
oo MFWN—OCONAOULS WOO 


STATUS; ! Status of subroutine calls 


RETURN SMGSSINVALIDATE_DISPLAY(.DISPLAY_ID) 


1 END; ! End of routine SMGSINVALIDATE_DISPLAY 
0000 00000 -ENTRY 
01 6c 91 4 t4 CMPB 
08 13 0000 BEQL 
50 000000006 8F 00 4 dd MOVL 
04 QO00E RET 
04 AC DD OQOOOF 18: PUSHL 
000000006 00 01 FB Bp 015 CALLS 
04 0001 RET 


26 bytes, Routine Base: _SMGSCODE + 02E4 
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Sep-1984 00:37:40 AX-11 Bliss-32 V4.0-74 
3007138 99:35:08 ANGRTL SRE isAaDyeOuT. B42: 


SMGSINVALIDATE_DISPLAY, Save nothing 
(AP), #1 


#SMGS$_WRONUMARG, RO 


DISPLAY ID 
#1, SMGSSINVALIDATE_DISPLAY 
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70893 woul SMCSGET.CHARCAT. PHYSICAL CURSOR = Get character Jacsen-1986 sei09:4 — Famonre saeismepy soor 692.1 943) 
> 1234 1 0 1 ZSBTTL "SMGSGET_CHAR_AT_PHYSICAL_CURSOR = Get character at physical cursor’ 
: 1235 1301 1 GLOBAL ROUTINE SMGSGET_CHAR_AT_PAYSICAL_CURSOR ( 
; 1236 1 ¢ 1 PASTEBOARD_ID 
> 1237 1303 1 CHARACTER 7 REF VECTOR C,BYTE) 
: 1238 1 be 1 d= 
; 1239 1305 1 
: 1240 1 $8 1 44 
: : re ’ t : FUNCTIONAL DESCRIPTION 
3 1 ag 1309 1 ! Returns the character that occupies the position on the screen corresponding 
: ; te ! 19 ! to the current physical cursor position. 
: 1246 1 \§ 1 ! Note: If the SMG$ weg st ity has not written to that location on the screen, 
3: 1247 131 1 ! then it doesn't know its contents. A character encoded as X'FF' will be 
3 ; m | 1 13 : returned in that case. 
3; 1250 1316 1 ! If character returned has a value less than X'20', then it is not an actual 
3; 1251 1317 1! printable character, but an internal terminal-independent code of what should 
: 1526 1318 1 ! be ey at that position, e.g. an element of the Line-drawing character 
3 1627 ; 8 } set. Do not attempt to use this code for subsequent output operations. 
; 1255 1354 1! 
> 1256 1356 1 ! CALLING SEQUENCE 
: 1257 1325 1! 
: 1258 13S¢ 1! status.wlc.v = SMGSGET_CHAR_AT_PHYSICAL_CURSOR ( 
3 leer 1 $2 @ PASTEBOARD_ID.rT.r, 
: 1260 1326 1! CHARACTER. wbu.r) 
: 1261 1327 1! 
; 1606 1328 1 ! FORMAL PARAMETERS 
: 126 3 9 1! 
3 1264 1350 1! PASTEBOARD_ID.rl.r Address of a longword containing the 
3 1¢9? 1331 1! pasteboard_id for which the information is 
> 1266 1336 1! desired. 
3 1267 1333 1! ; 
; 1s08 I 3ee : CHARACTER. wbu.r Address of a byte to receive the result. 
3; 1270 1336 1 ! IMPLICIT INPUTS: 
3 1271 1337 1! 
3 1 i; 1338 1! NONE 
: 127 1339 1! 
> 1274 1340 1 ! IMPLCIT OUTPUTS: 
3; 1275 1341 1! 
3 1 6 1366 1! NONE 
3; 127 1343 1! 
3 8 Were 1 ! COMPLETION STATUS: 
3; 127 1345 1! 
3; 1280 1366 1! SSSNORMAL Normal successful completion 
; 1281 1347 1! SMG$_INVPAS_ID Invalid pasteboard id 
3 ' a ' rt} ! SMG$_WRONUMARG Wrong number of arguments 
3 1% Be 1350 1 ! SIDE EFFECTS: 
1586 1382 | | NONE 
3 M 1 3g 1 f= | 
2 7 1354 BEGIN 
3: 1289 1355 LOCAL 
; 1290 1356 PBCB : REF S$PBCB_DECL, ! Address of pasteboard control block 
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SDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 18-36 -1984 00:37:40 AX-11 Bliss-32 V4.0-74 Page 35 Sm 
3m0F8 SMGSGET_CHAR_AT_PHYSICAL CURSOR - Get c arecter 12-Sep-19 4 90 doice SMGRTL.SRCJSMGDISOUT.B32;1 . (133 1=( 
: 1291 1357 WCB : REF $wCB ECL ' Address of window control block 1 
: 1 % 1 8 PTR : REF VECTOR C, BYTE); i Pointer to text buffer of what is 1 
; } 37 } 23 ' currently on the screen. 
: 1295 1361 2 !4 1 
; ! 38 1 °¢ Check for right number of arguments. 
: i 98 64 SSMGSVALIDATE_ARGCOUNT (2, 2); 
> 1300 1 66 \+ 1 
: : 4! : 44 Get address of pasteboard control block and of window control block. 
:4 08 1369 2 $SMGS$GET PaCB (,PASTEBOARD_ID, PBCB); | 
: 1304 1370 WCB = .PBCB CPBCB_A_WCB); 1 
; 05 4 PTR = .WCB CWCB_A-SCR_TEXT_BUFJ; 
: 1307 1 5 1+ 1 
: 1308 Ieee ! Fetch character at position corresponding to current actual physical cursor 1 
; 1308 1309 position on the screen. 
: 1313 1377 "CHARACTER (0) = .PTR C 1 
; 1312 1378 (.WCB WCB_W_OLD_CUR ROW] -1) * .WCB CWCB_W_NO_COLS] + 1 
; 1313 1379 (.WCB CWCB"W-OLD-CUR-COLJ -1) J; 
: 1315 1381 RETURN (SS$_NORMAL); 
; 1316 1382 1 END; ! Routine SMG$GET_CHAR_AT_PHYSICAL_CURSOR 
1 

1 

1 

1 

1 

1 

1 

1 

{ 


000c¢ 00000 .ENTRY SMGS$GET_CHAR_AT_PHYSICAL_CURSOR, Save R2,R3 ; 1301 
02 6C 91 B000s CMPB (AP), #2 3 1364 
08 13 0000 BEQL : 
50 000000006 8F oO 90007 MOVL #SMG$_WRONUMARG, RO : 
50 06 BC bg OOOF 1$: MOVL § @PASTEBOARD_ID, RO : 1369 
111 0013 BLSS : 
000000006 00 30 b 9015 CHL RO, PBD_L_COUNT : 
08 000000006 00 98 EO SOTg BBS RO, PBD_V_PB_AVAIL, 3$ 3 
50 000000006 &F oO 00 6 28: MOVL #SMGS_INVPAS“1D, RO ; 
0000006004 3$: MOVL §PBD_A PBCBCRO], PBCB : 
38 ” 88 i p § MOVL (PBCB), wCB : 1370 
32 14 Ad p 003A MOVL O(WCB), PTR : 1321 
1 24 AO y ; CVTWL 46 36 (WCB), R1 : 1378 
51 p 4, DECL = RV ; 
53 06 AO 3C 00044 MOVZ2WL 6(WCB), R3 : 
1 5 £4 O48 MULL2 R3, R1 : 
0 26 A 48 CVTWL  38(WCB), RO : 1379 
1 5 ¢ 4F ADDLe = RO, RI : 
08 BC FF Atke 3 MOVE -1(R1)CPTR], @CHARACTER : 1377 
0 0 0 2 MOVL #1, RO + 1381 
0058 RET 3; 1382 


; Routine Size: 92 bytes, Routine Base: _SMGSCODE + O2FE 
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e033 SMGSREPAINT_SCREEN = Repaint current ocreen 12-808- 132 90:35 :e6 SMGRTL. RCISMGDISOUT.B 2;1 . 3s 
| 
; 131 1383 1 XZSBITL ‘SMGSREPAINT SCREEN - Rope tot current screen’ ; 
3; 131 1384 1 GLOBAL ROUTINE SMGSREPAINT_SCREEN ( ; 
3 3 1385 1 PASTEBOARD_ID ; 
: 1321 1 $ 1 )= ; 
3 : 1 1 44 3 
: } ? : 3 ! FUNCTIONAL DESCRIPTION: : 
: 1325 1390 1! This procedure will repaint the current screen based on its : 
| § 1391 1! internal knowledge of what the screen should look Like. ; 
3 3 1392 1! It is intended to be called when it is known or suspected that : 
: 1328 1395 1! some outside = pe has disrupted the screen so that it no Longer 2 
; 1329 1394 1! matches the in orne) knowledge of what should be on the screen. : 
; 1350 1395 1! If pasteboard batching is in qfrest. the repaint occurs ; 
3 ; 1 : > } from the screen image; otherwise it occurs from the text image. ; 
; | 5 ! 38 t CALLING SEQUENCE: : 
; } H t's ! } ret_status.wlc.v = SMGSREPAINT_SCREEN ( PASTEBOARD_ID.rl.r ) : 
: 1337 1e86 1 ! FORMAL PARAMETERS: $ 
; 1338 14035 1! F 
; 1377 1404 1! PASTEBOARD_ID.rl.r Id of pasteboard associated with : 
3; 1340 1405 1! physical screen to be repainted. ; 
: 1341 1406 1! F 
.% ¢ 1407 1 ! IMPLICIT INPUTS: 3 
3 1 1408 1! 3 
3 Ht a: ret 4 : Current internal representation of what should be on the screen. ; 
3; 1346 1411 1 =! IMPLICIT OUTPUTS: 3 
3 it oh 1236 1! 3 
3 1348 1413 1! NONE ; 
: 1349 1414 1! : 
; 1350 1415 1 ! COMPLETION STATUS: 3 
3; 1351 1416 1! 3 
3 1326 1417 1! $S$_NORMAL Normal successful completion 3 
; 1327 1338 ' SMGS_INVPAS_ID Invalid pasteboard control block : 
3 138 1420 1 ! SIDE EFFECTS: 3 
: 1 2 1421 1! é 
3; 135 14 ¢ 73 NONE : 
; 1358 14 1 !<- : 
3; 1359 1424 BEGIN 3 
: 1360 1425 LOCAL ‘ 
3; 1361 14 § WCB : REF BLOCK (,BYTE), ! Window control block : 
31 § 14 PBCB : PFF BLOCK C,BYTEJ; ' Address of pasteboard control a 
; 13 1428 i block | 3 
3: 1365 1430 SSMGSGET_PBCB ( .PASTEBOARD_ID, PBCB); ! Get address of pasteboard | : 
% 1431 ' control block. ; 
31 1636 ; 
3; 1368 14 '¢ : 
3; 1369 14 ' Get address of window control block. | : 
3; 1370 1435 !- : 
3; 1371 14 $ 
s. % 14 WCB = .PBCB CPBCB_A_WCB); ; 
3: 137 14 3 
; 1374 14 \* : 
| 


12 
SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 1hese -1984 00:37:40 AX-11 Bliss-32 V4.0-74 Pa 8 | Sm 
mges SMGSREPAINT_SCREEN = Repaint current ecreok 12-8081 3be 90:35 ie8 SMGRTL.SRCISMGDI SOUT .B 2;1 9 435 1- 
: 1375 144 ' Zero out the screen image, thereby forcing output to . 
s 137 144 ' redraw the whole screens . — 3 
3; 137 144 '- $ 
; 137 144 : 
; 137 1444 | weeeeerereereeee We have to add code here to make ; 
; 1380 1445 ! the repaint occur from the window buffer if batching is in effect. . 
3 : 1 1oe8 | eeeerereteerenereneneeeeeeee : 
; 1 1ee3 CHSFILL(O,.WCB CWCB_L_BUFSIZE],.WCB CWCB_A_SCR_TEXT_BUF IJ); : 
: 1385 1450 rr : 
3 1 YY 132) ' Clear the Line characteristics vector. $ 
: 1388 1438 " ; 
; i 89 1456 CHSFILL(O,.WCB CWCB_W_NO_COLSJ+1,.WCB CWCB_A_SCR_LINE_CHAR]); ; 
: 1331 1456 '¢ : 
3 : 36 et : Tell the output routines that we've changed the whole WCB buffer. : 
: 1392 1459 : PBCB CPBCB_W_FIRST_CHANGED_ ROW] = 1; : 
3; 1395 1460 PBCB LPBCB_W_LAST CHANGED ROW] = .PBCB CPBCB_B_ROWSJ; 3 
3; 1396 1461 PBCB PBCB_W_FIRST CHANGED soy = 1; é 
; ' 97 1068 PBCB CPBCB-W"LAST_CHANGED_COL) = .PBCB CPBCB_W_WIDTHI; : 
: 1399 1464 RETURN (SMGSS$MIN_UPD (.PBCB)); : 
; 1400 1465 1 END; ! End of procedure SMGSREPAINT_SCREEN : 
OOFC 00000 ENTRY SMGSREPAINT_SCREEN, Save R2,R3,R4,R5,R6,R7 ; 1384 : 
50 04 BC DO 00002 MOVL @PASTEBOARD_ID, RO 3; 1430 : 
11 19 444 BLSS 1$ 3 3 
000000006 00 50 D1 0000 CMPL RO, PBD_L_COUNT : ; 
2 14 QO00F BGTR 3 3 
08 00000000G 00 G €0 00011 BBS RO, PBD_V_PB_AVAIL, 2$ 3 ; 
50 000000006 8F BO 0019 1$: MOVL #SMGS_IRVPAS“1D, RO 3 
57 0000000060040 4 0021 2$: MOVL PBD_A_PBCBCRO), PBCB : ; 
56 08 a7 3 3 9 OVL 8(PBCB), wCB : 1437 3 
28 «Ab 00 6E a 00 C 99 MOVCS #0, (SPS, #0, 40(WCB), a20(WCB) ; 1448 3 
50 06 Ab 3 i ; MOV ZUL 6(WCB), RO ; 1454 ; 
50 00 6E - a0 Be 03 MOVCS #0, (SP), #0, RO, a48(WCB) : 3 
OOA8 C7 BY BO O92 MOVw of] 168 (PBC) : 1459 ; 
OOAA C7? SFA? 004 MOV7BW 95(PBCB), 170(PBCB) > 1460 ; 
OOAC (C7 01 80 . 4 MOV Wi, 172¢ £9) : 1461 3 
OOAE (7 SA AT OB 3 MOVW  90(PBCB), 174(PBCB) > 1462 : 
57 dd 00 PUSHL pec 3: 1464 : 
000000006 00 01 FB ie CALLS #1, SMGSSMIN_UPD $ : 
04 61 RET : 1465 : 
3; Routine Size: 98 bytes, Routine Base: _SMGSCODE + 035A ; 
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mg38 SMGSRING_BECL = Ring Bell plays regard See Peasy «|| PARGAT Oh legske ¥$505 786... aoe 0 1- 
1403 BSBITL 'SMGSRING BELL = Ring Bell’ | 
Ps GLOBAL ROUTINE SAGSRING.BELC ( 
PISPLAY 10. 


)= 
le4 
! FUNCTIONAL DESCRIPTION: 
This routine rings the bell, on each physical terminal to which 
the given virtual display is pasted, the number of times 
specified. If TIMES omitted, 1 is used. 

i CALLING SEQUENCE: 


ret_status.wic.v = SMCSRING_BELL 


i FORMAL PARAMETERS: 
DISPLAY_ID.rl.r The display id of the virtual display. 


TIMES. rl.r Optional. The number of times to ring the bell. 
If not specified, the bell is sounded once. 
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i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


NOU EWI 


ee ee a ee a ee ee ee ae a ee ae ee ee a a ed ed dd 
PRoPoPoPoPoNoPoPONONONONOR) 2 2 2 so ZH 


oS oy ee oy oe ot bt ot ot ot ot ot et et ee ee a 
ad tat adatadadad dadadadatat aia adad md adadbabat iat dadabatad edad abadadadadadadadadad adabad ad ad abad ad aad abad added 
Pe al al Ab AL AL AL AL AL AD AL AD Ab Ab ab Ab Ab Ab Ab Ab Ab Ab Ab At Wee mee Dl le tl el Sal el Sel al el al tel dl el dl tae ta tet et et et at te at et tt tt ee 


Se Be Se Oe Se Be Ge Se Se Be Ge Ge Se Se Se Ge Se Fe Ge Be Se Se Ge Be Se Se Se Se Se Ge Ge Se Oe Se FH Se SH Ss Se Se Ss Se SH Se SHSe Se Se Se See Se Sess esetse 


4 NONE 
95 
96 
97 
o NONE 
90 i COMPLETION STATUS: 
4 $S$_NORMAL Normal successful completion 
9 0 Statuses returned by SMGS$SOUTPUT or 
? Be statuses or signal values returned by STRSDUPL_CHAR. 
é 9 i SIDE EFFECTS: 
4 08 NONE 
5 09 — 
§ 10 
11 BEGIN 
8 \¢ BUILTIN 
49 1 NULLPARAMETER ; 
50 14 
51 15 BIND 
6 1g BELL_CHAR = UPLIT (BYTE (BELL)); 
54 \8 LOCAL 
55 1 DCB : REF BLOCK C,BYTE), ' Address of display control 
2$ ? ' block 
3 § PP : REF BLOCK (,BYTE), ! Address of a pasting packet 


| 
IMPLICIT OUTPUTS: 
| 
| 


| tlt SMGSDISPLAY_OUTPUT - puppet Virtual Displays 


H 12 
-Sep-1984 237:4 AX-11 - ~ 
SMGSRING_BECL = Ring Bel g-gee 3 99:3 , atts neo y soy 


1 .0-74 
14-Sep-1984 9:46 SMGRTL.SRCJSMGDISOUT.B352;1 
' 


4 STATUS; Status to return to caller 
SSMGSVALIDATE_ARGCOUNT (1, 2); 
SSMGSGET_DCB (.DISPLAY_ID, DCB); ! Get addr of virtual display 


' control block. 
STATUS=SS$_NORMAL ; 


60 

o 

64 

64 

65 

5 

4 I a tematate hae (TIMES) 

a! BEGIN ! No arg supplied, output 1 bell 

i i Chase the chain of pestesceres to which this virtual display 
a is pasted. For each pasteboard located, output the bell. 
26 PP = .DCB CDCB_A_PP_NEXT); 

8 IF .PP EQL 0 

rs RETURN (SMGS_FATERRLIB); ! should never be 0 
$¢ eatLs -PP NEQ DCB CDCB_A_PP_NEXT] ! While any remain... 


BEGIN 

STATUS=SMGSSOUTPUT ( .PP CPP_A_PBCB_ADDRI, 
BELL_CHAR); 

ie -PP CPP_A_LNEXT_DCB]; ! Step to next packet 


4 
4 
4 
4 
4 
3 E 
END "! No arg supplied, output 1 bell 
ELSE 
seein ! Multiple bells 
| 


SSELEAF 


ooo 
wn 


LOCAL 
DESCR : BLOCK (8, BYTE) ; ! A local descriptor 
t+ 


i Must build a string of TIMES bell characters. Use dynamic 
string. 


RANVLSSSLESE 


DE = 0 
DESCR CDSC$B~CLASS] = D 
DESCR [DSC$B~DTYPE] = D 
DESCR CDSCSA~POINTER) = 


LIBSESTABLISH ( LIBSSIG_TO_RET ) ; ! Establish handler in case 
' STRSDUPL_CHAR signals out 

! from under us. 

if NOT (STATUS = STRSDUPL_CHAR ( DESCR, .TIMES, BELL_CHAR)) 


N 
RETURN (.STATUS ); 


So 
uw 
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SELF 


a ee ee ee ee ee ee ee 
PAAAANAAADAARAAAMNTAUE BEBE EERE EER ERE ERE PEPE PEPPER PPP PPP PPP PPP 
ee T_T EEE eS SS 
DONNA NNN NNNIOAAAAO 

CODNOAEWN CO ODNAUE WN OO DONA EWN OOD NONE WR OO DONO MEW ODONOU 
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SMGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays 1b-5¢ Sep-1984 AX-11 Bliss-32 V4. P 4 
3833 SMGSRING_BECL = Ring B Bell oe 33 eet Pi 99: 334 SMGRTL.SRC {$shep! Sout 6 B32;1 29° 405 


: 1517 1581 } chose the chain of pasteboards to which this virtual display H 
: ! 18 ! § ' is pasted. For each pasteboard located, output the bell (s). : 
; 1520 1584 PP = .DCB CDCB_A_PP_NEXT); ; 
: 139¢ 1986 IF_.PP EQL 0 : 
1594 1988 RETURN (SMGS_FATERRLIB); ! should never be 0 3 
; i § 30 WHILE .PP NEQ DCB CDCB_A_PP_NEXT) ! while any remain... 3 
; 13 8 1 3 4 BEGIN ; 
: 1 1593 4 STATUS=SMGSSOUTPUT ( .PP CPP_A_PBCB_ADDR], ; 
: 1530 1594 4 .DESCR Biitiee LENGTH) ; 
3 1 1 1395 4 “DESCR COSCSA~POINTERI); 3 
: 15 ¢ 1899 4 PP = .PP C[PP_A_NEXT_DCB); ! Step to next packet : 
HE Uy wa : 
: 15 1600 LIBSSFREE1 DD ( DESCR ) ; '! Return dynamic string ; 
; 1? 4 1691 : END ; ' Multiple bells’ : 
: 1539 1808 RETURN (. STATUS); : 
3 1540 1604 1 END; ! End of routine SMGSRING_BELL : 
07 0038C P.AAA: .BYTE 7 : ; 
BELL_CHAR= P.AAA ; 
003¢ 00000 .ENTRY SMGSRING BELL, Save R2,R3,R4,R5 : 1468 : 
55 000000006 00 9€ 0000 MOV SMGS$SOUTPUT, RS : : 
5E 08 00 SUBL2 #8, : ; 
50 6C gi 000 SUBB3 «ss #1, (AP), DIFF : 1526 ; 
01 0 1 0001 CMPBséOdFF, #1 ; : 
0 18 001 BLEQU§ 1$ : : 
50 000000006 8F v0 9015 ROVL #SMG$_WRONUMARG, RO : 
50 04 BC DO 00010 18: MOVL @DISPLAY_ID : 1528 
04 BC 8 A D| 021 CMPL 56(RO), SbT PLAY. 1D : 
0 0 g BNEQ 3 
11 4a oA ? : CPB (RO), #17 ; 
50 000000006 8F BO QO0GE 28: MOVE «= ASMGS_INVDIS_ID. RO 
3 04 BC D 3$: MOVL § @DISPLAY_ID, DCB : 
4 1 A MOVL #1, STATOS ; 1531 
2 6¢ ° CMPB «CAP, 2 : 1533 
F BLSSU 4 : 
08 A p 4 TSTL 8(AP) ; 
2 4 BNEQ 3 
52 20 A p 4$: MOVL (DCB), PP : 1540 
5 48 BEQL : 1342 
50 20 A i 4D 5$: MOVAB 3 (0B), RO > 1546 
52 D 51 CMPL PP, R ; 


000000006 


000000006 


000000006 


; 1541 1605 1 !<BLF/PAGE> 


Fheae SPLAT Out SMGSDISPLAY OUTPUT = Out 
1-07 SMGSRING_BECL = Ring Bel 


; Routine Size: 208 bytes, Routine Base: 


A6 
14 


6E 020E0000 


8 
000000006 
00 
FF7B 
08 
08 
0 
4 
5 
52 20 
50 000000006 
50 20 
50 
04 
7E 04 
14 
65 
54 
52 
00 
50 
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~ Virtual Displays 


Po 
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wn 


o ~w 
rw 
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MOVMAWUOP SP -ViF WOPYPVMOFY POOCOFOMOuNOrorna 
o 
bed 


F—MVNOWNIMMUIWN  MOWLOWMO OOM EOIN SS OO 


SOooOOCCOCOCOOOOCOCOOCOOOCOOOCOOOOOOOOOOOOOOOOO 


Cooooooooco 
QOOOOOWWWWW>>>>y oO at pe) oR ry ee 


o°9o TO —-99 "OWS $9 OO9C “oO MoO "OU O"OUTIIT-CcCO "oO 
FOS “"CODI NOW M FOMOO0OT "9 "DFO" OCOWoO Ww 


_SMGSCODE + 038D 


pa198e 19:09:60 ESmGrtLeSReasmGD! SOUT 


10$ 

BELL_CHAR 

20(PP) 

#3, SMGSSOUTPUT 
RO, STATUS 

PP), PP 
#34471936, DESCR 
DESCR+4 


LIBS$SIG_TO_RET 
IBSESTABLISH 
CHAR 


2O4#@e 

Wm =m 3 FN Ls 

. “oss n” 
amr 


L 
$ 
R 
RO : 
status 1 
8 
#SMG$_FATERRLIB, RO 
32(DCB), RO 

PP, RO 

DESCR+4 

abies -(SP) 

#3, SMGSSOUTPUT 

RO, STATUS 

(PP), PP 

8$ 


SP 
#1, LIBSSFREE1_DD 
STATUS, RO 
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s— 
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PLAY_OUTPUT = Output Virtual Disp -Sep 7:4 AX-11 Bliss-32 v4.0 
GIN_PASTEBOARD_UP rt E_R1 = Begin ae 0 12-808- 1382 99: 36; 28 SMGRTL. SRC SMGDISOUT. % 2:1 
ZSBITL ‘'SMGSSBEGIN_PASTEBOARD ree E_R1 = Be gin pareh ef updates to pasteboard' 
GLOBAL ROUTINE SMGSS$BEGIN_PAST EBOARD UPDATE ua Mis oe 1 her Brace. DECLS 
. = 


le 


| FUNCTIONAL DESCRIPTION: 
| PRtaE crabten fa suppers SEGUaSPasTEPONR UPDATE See 

} matching + to SHGSSE D_PASTEBOARD_UPDATE_R2 is encountered. 
CALLING SEQUENCE: 

ret_status.wic.v = SMGSS$BEGIN_PASTEBOARD_UPDATE_R1 ( PBCB.rab.r) 
} FORMAL PARAMETERS: 

PBCB.rab.r Address of pasteboard control block 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

SS$_NORMAL sornes Suscenates completion, batching has been 
SMG$_BATWAS_ON Success, but note that batching was already on 
SIDE EFFECTS: 

' 
' 


NONE 


BEGIN 
'¢ 
i Increment count of number of SMGSSEND_PASTEBOARD _UPDATE_R2 calls we need to 
| See before we resume output tne from this pasteboar 
' Let the user know what the revious state of batching was by 
our status return (in case he's interested). 
" PBCB CPBCB_L_BATCH_LEVEL) = .PBCB CPBCB_L_BATCH_LEVEL] + 1, 
IF .PBCB CPBCB_L_BATCH_LEVEL) EQ. 1 
RETURN SS$_NORMAL 
RETURN SMG$_BATWAS_ON 


END; ! End of routine SMGS$S$SBEGIN_PASTEBOARD_UPDATE_R1 


Page 44 
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MGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays 18-S6 1984 00:37:4 AX-11 Bliss-32 V4.0-74 
0873 SMCSSBEGIN. PASTEBOARD-UP ATER) = Begin batch 01 7398-1982 99:30i¢8 SMGRTL. SRCISMGD1 SOUT .B 231 


00A4 CO D6 00000 SMGSSBEGIN PASTEBOARD UPDATE_R1:: 
INTL 64 (PBCB) 
01 O0A4 0D 9 CMPL 164(PBCB) , #1 
46 1 9 BNEQ 1 
50 1 B 8 8 movi #1, RO 
50 000000006 8F 0 OOOF 1$: MOVL #SMG$_BATWAS_ON, RO 
05 00016 RSB 


; Routine Size: 23 bytes, Routine Base: _SMGSCODE + 048D 


; 1597 1660 1 !<BLF/PAGE> 


7S 


SMGSSEND_PASTEBOARD_UPDATE_R2 = End batch o SMGRTL.SRCJSMGD! SOUT (16) 


L 
h 
ZSBTTL 'SMGSSEND_PASTEBOARD_UPDATE h of updates to pasteboard' | 
GLOBAL ROUTINE SAG$ END PASTE BOARD Bce: REF $PBCB_DECL) 


lee = 
! FUNCTIONAL DESCRIPTION: 
Inner routine to support BEGIN _PASTEBOARD_UPDATE action. 
Reduce the number of calls to SMGSSEND_PASTEBOARD_UPDATE_R2 that will 
be needed before we resume outputing from this pasteboard. If 
ge this count go to zero, flush the pasteboard to 
f the level is anceaey ».we return a success status 
nforming caller that the batching level was already 0, 
but we otherwise allow this. This gives a user a guaranteed 
method of ending batching. 
CALLING SEQUENCE: 
ret_status.wic.v = SMGSSEND_PASTEBOARD_UPDATE_R2 ( PBCB.rab.r) 
FORMAL PARAMETERS: 
PBCB.rab.r Address of pasteboard control block 
IMPLICIT INPUTS: 
PBCB CPBCB_L_BATCH_LEVEL) 
IMPLICIT OUTPUTS: 
PBCB CPBCB_L_BATCH_LEVEL] gets decremented 


COMPLETION STATUS: 


M12 

MGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual DispLa “Sep-1984 00:37:64 AX-11 BLiss-32 V4.0-74 p , 

aid DARE RS OE ch 6 gr g0pn 1 8Be 90: 80:2 ote isng B32:1 age 165 
b 


e-~e vO 
zw == 


SSSI Oe NAP OOS AP 


SELES 
NO MEW —OO0 MEUM $9 OBNOUESWN (OO DNOUEWN “ODDO 


SS$_NORMAL Normal successful completion 
SMGS_BATSTIPRO Success; but batching is still in progress. 
SMGS_BATWASOFF Success; but batching was already off 


SIDE EFFECTS: 
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SSNS NOOO O 
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'¢ 
! If current count is greater than 1, sinoly reduce it by one and 

' return to caller. If it is one, reduce it to zero and cause the 

; gurrent contents of this pasteboard to be flushed to the screen (if need 
. e © 
le 


IF .PBCB CPBCB_L_BATCH_LEVEL) GTRU 1 
THEN 


ee td at dd 8 a od as — 3 = “8 2 4 — Ls 2 


me ee ee ee ed a at = = = 2 2 2 2 SS 


AOC 
WOMAN 
MEWN—OO0O 
NOUS WI 0M 


AL 
STATUS; ' Status to return 
BEGIN 
PBCB CPBCB_L_BATCH_LEVEL] = .PBCB CPBCB_L_BATCH_LEVEL]) - 1; 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 7:40 AX-11 Bliss-32 V4.0 7 
iid SMCSSEND-PASTEBOARD UPDATE RY © End batch ot up Inesepet9Re $eiog.ce Leman ebkessRepyea0r6S>.4 Page 46) 
; 165 171 STATUS snes BATSTIPR } ° 
: He § 1718 ata = t IPRO Ok, but batching is still in progress 
: 1658 17 ELSE 
3; 1659 1721 BEGIN ! ; eine f reduced to zero 
; 1660 17 ¢ LOCAL BATCH STAT U3: 
: 1661 17 BATCH STATUS = SS$_NORM 
: 1666 if ¢ -PBCB CPBCB_L_BATCH MtEVELI EQL 0 
: Ieee \y 8 BATCH_STATUS = SMG$_BATWASOFF ! Ok, but batching was already off 
: 1666 17 8 PBCB CPBCB_L_BATCH_LEVEL) = 0; 
> 1668 1730 i Call SMGSS$CHECK_FOR_OUTPUT_PBCB to cause the 
> 1669 1731 i contents of this paSteboard to be 
3; 1670 17 § i flushed to ke screen. 
3; 1671 17 itt on not actually get there if buffering is in er raets 
3 1676 1734 i If that fails, then return its status as our statu 
; \ol? 173? If ches pusanieas then return our previously seleulated status. 
: 1675 1737 STATUS = SMGSSCHECK_FOR_OUTPUT ret os (.PBCB); 
: 1676 1538 IF STATUS THEN STATUS=.BATCH_STA 
; 1677 1739 2 D; ! Being reduced to zero 
: 1678 1740 § 
3; 1679 1741 RETURN . STATUS 
; 1680 1742 1 END; ! End of routine SMGSSEND_PASTEBOARD_UPDATE_R2 


SE 04 C2 00000 SMGS$SEND_PASTEBOARD_UPDATE_R2:: 

SUBL2 #4, SP > 1662 

51 00A4 CO 9E 00003 MOVAB 164(PBCB), R1 + 1714 
01 61 D1 00008 CMPL R1), #1 : 
0B 18 90008 BLEGU 1$ : 

1 07 0000D DECL (R1) + 1717 

52 000000006 8F 00 0000F MOVL § #SMGS$_BATSTIPRO, STATUS : 1718 
2 11 00016 BRB 4$ ; 

6E 01 DO 00018 1$ MOVL #1, BATCH_STATUS ; 1733 

61 D5 0001B TSTL = (RAD : 1726 
9 12 0001D BNEQ 2$ ; 

6E 000000006 F OD Oe Ne MOVL #SMG$_BATWASOFF , BATCH_STATUS 3: 1726 
2 11 00 6 BRB 3$ F 

gi D4 6 3: CLRL (R1) : 1728 

0 DD A 3$: PUSHL PBCB : 1737 
0000v cf gi FB 0 C CALLS #1, SMGSSCHECK_FOR_OUTPUT_PBCB : 
9 dO 00031 MOVL RO, STATUS ; 

52 £9 000 BLBC TATUS, 4$ : 1738 
6 D 99 7 MOVL  BATCH_STATUS, STATUS : 

52 D O3A 4$: MOVL STATUS, RO : 1741 

é 04 ¢ 003D ADDL2 #4, SP : 1742 
§ 00040 RSB ; 


; Routine Size: 65 bytes, Routine Base: _SMGSCODE + 04A4 
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m8 SMGSSCHECK FOR.OUTPUT DEB = Check to see if out 1e-sep-19R6 sei09.cy © Lemont sae Seman} coor 632-1 age 448 
683 USBTTL 'SMGSSCHECK FOR OUTPUT DCB = Check to see if output needed’ 
68 GLOBAL ROUTINE SMGSSCHECK_FOR-OUTPUT DCB ( ee 
685 DCB : REF BLOCK C,BYTE), 
6 REQUEST CODE, 
é | REQUESTIARG 


'++ 
FUNCTIONAL DESCRIPTION: 


This routine is called when ever a change has been completed 
to a given virtual display. Changes consist of: 

. Altering the text in a virtual display 

2. Altering the attributes of the text in a virtual 

display. : 
3. Altering the cursor position within a display. 
4. A virtual display's buffering level going to zero. 
5. A virtual display has just been pasted to a 
pasteboard. 
The criteria for outputing consist of: 

. Virtual display buffering level is zero 

. The virtual display is pasted to at least one 
pasteboard. 


Each pasteboard to which this display is pasted is isolated and 
ts window image must be redrawn. 
The new physical pasteboard cursor position gets set. 


CALLING SEQUENCE: 


ret_status.wic.v = SMGSSCHECK_FOR_OUTPUT DCB ( 
5CB.rab.r 
C,REQEST_CODE.rl.vJ) 


DCB.rab.r Address of virtual display control block for 
affected display. 


CREQUEST_CODE.rl.v] Optional. If supplied, it is a code telling 
the nature of the request that grevenes this 
ECK_FOR_OUTPUT_DCB. 


A eee eos eb ~adnb-ushete> ee OOOO OOOCOOOOOOO® 


a ee ee ee a ee a a ee ee a ee ee ad dd od 
SQN NS NSS SSS SSS NSIS SINS NII OOOO AOAAO 
a kt kt tk kh tt tt tt es 


' 
' 
' 
! 
| FORMAL PARAMETERS: 
' 
] 


8 

8 call to SMG$$CH UTPUT_ 

8 Among other things, it tells us when it is 

necessary to redraw borders. 

8 CREQUEST_ARG.rl.vJ Optional. If pupp) tee then it tells us the 

8 unique Line in the DCB that has ehonge . 

; If specified as 0, then the whole DCB has changed. 

: IMPLICIT INPUTS: 

; NONE 

: IMPLICIT OUTPUTS: 
3 98 WCBCWCB_W_CURR_CUR_ROW] gets set to place corresponding 
38 799 o logical cursor position in 
39 800 this virtual display. 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-50 -1984 00:37:40 AX-11 Bliss-32 V4.0-74 Page 49 

1-07 rg SMGSSCHECK_FOR_OUTPUT_DCB = Check to see if out 1 730071382 99:59:28 SMGRTL. ReismeD! SOUT B82; 1 (17) 

; 1740 190) 1! : 
3; 1741 1 § 1; WCBCWCB_W_CURR_CUR_COLJ gets set to place corresponding : 
; rng 3 1} o logical cursor position in : 
3 Se, 1308 ! this virtual display. : 
: 1245 1806} | COMPLETION STATUS: ; 
: oe 4 1308 : } SS$_NORMAL Normal successful completion : 
1749 1810 1 } SIDE EFFECTS: 
: 1750 1811 1! : 
; 102) 1si¢ 3 NONE ; 
3 17 ; 1815 1 !-- : 
; 175 1814 1 ; 
WB UNE S Sift : 
; 1756 1817 ACTUAL COUNT; i 
: 1988 1819 $ Loca ; 
: 1759 1820 CURR_PP : REF BLOCK [,BYTE], =! Addr of pasting packet under : 
3 1790 \8s) ! inspection : 
; 176¢ 1898 ; STATUS; ! Status of subroutine calls ; 
: 1764 1895 16 
> 1765 1826 ‘ i If current buffer Level not equal to zero, this is not the time to : 
: 1708 lest § } flush this display to the screen. : 
: 1768 1829 g JF DCB CDCB_L_BATCH_LEVEL] NEQ 0 : 
; 1770 1831 RETURN (SS$_NORMAL) ; : 
: 1772 1835 2 CURR_PP = .DCB CDCB_A_PP_NEXT]; ! Start of chain of pasting : 
: 1773 1834 2 ! packets to which this display : 
: 1774 1835 2 ! is pasted. : 
; 1709 1836 3 IF 5 CURR_PP EQL 0 : 
; 1777 1838 2 RETURN (SMG$_FATERRLIB); ! should never be 0 ; 
We WBS, : 
; 1780 134) Deal with each pasteboard that this virtual display is pasted to... : 
; 1782 1848 "WHILE .CURR_PP NEQ DCB CDCB_A_PP_NEXT] : 
1784 1845 BEGIN ! Overall Loop : 
<n cay : 
> 1787 1848 PBCB : REF BLOCK C,BYTEJ, ! Addr. of pasteboard control : 
3 1788 138? WCB : REF BLOCK C,BYTEJ; ! Addr. of window control block : 
; 1 132) PBCB = .CURR_PP CPP_A_PBCB_ADDR]; ! Select pasteboard and wCB : 
: 1798 1838 IF _,PBCB CPBCB_L_BATCH LEVEL] EQL 0 ; 
Wes He it ee ae 
> 1796 1889 4 OPT_FLAG; ! Flag : 


i olarak 

i 
=1984 00:37:40  VAX-11 Bliss-32 v4.0-74 2 0 
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WCB = .PBCB CPBCB_A_WCB]; ! whose window needs rebuilding. 


4 
! Set the cursor position in the pasteboard to correspond 
to it's place on this virtual display. 


WCB CWCB_W_CURR_CUR_ROW] = .DCB [DCB_W_CURSOR_ROW]-1 
+ .CURR_PP CPP_Q_Row]; 


WCB CWCB_W_CURR_CUR_COL] = .DCB [DCB_W_CURSOR_COLJ-1 
+ .CURR_PP CPP_@_COLJ; 
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! If REQUEST_CODE is present and it 
! involves cursor motion, deal with 
! avoid remapping the virtual displ 
not change. 


is a type that just 
it as a special case to 
y 


ay since contents did 


OPT_FLAG = 0; 
IF ACTUALCOUNT () GEQ 2 ! REQUEST_CODE present 
BEGIN ! Try optimization 
IF .REQUEST_CODE EQL SMGSC_SE 
-REQUEST-CODE EQL SMGSC~SE 


N 
OPT_FLAG = 1; 
; ! Try optimization 
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END 
OPT_FLAG 

oe ! Opt. possible 

;_ Force cursor to desired spot in optimal fashion 


SMGSSUPDATE_PHYSICAL_CURSOR ( .PBCB); 
END ! Opt. possible 


If . 
THEN 


ELSE 
BEGIN ! Remapping necessary 
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! Check to see if we can get by with just redrawing the 
! changed virtual a de or whether we need to redraw 
: the changed one and all higher-pasted virtual 
displays. We can do the former if this pasting has a 
bit that says it is not occluded. 


iF NOT .CURR_PP CPP_V_OCCLUDED} 


THEN 
BEGIN ! Redraw just this virtual Shepley 
IF NOT (STATUS = SMGSSMOVE_TEXT_TO_WINDOW_BUF (.CURR_PP)) 


HEN 
RETURN (.STATUS); 


1+ 
! If something actually got redrawn, tell the output 
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; 1854 1915 6 ' ghey we've changed the whole virtual display. 
; 1855 1318 ° ' If just one Line has changed, however, then tel 
: : $ 13 ? the output routines which Line changed. 

; 1 1319 TF jCURR_PP CPP_W_ROWS_TO_MOVE] NEQ 0 

: 1860 1921 BEGIN 

: 1861 19 ¢ 7 PBCB CPBCB_W_FIRST_CHANGED_ROW] = 

; 1868 19 ; .CORR_PP CPP_W_FIRST_WCB_ROW]; 

:4 1925 7 PBCB [PBCB_W_LAST_CHANGED_ROW] = 

3 199? + § 4 .CORR_PP CPP_W_LAST_WCB_ROW); 

: 1867 1908 7 PBCB CPBCB_W_FIRST_CHANGED_COL] = 

3 1so8 12 4 : .CORR_PP CPP_W_FIRST_WCB_COLJ; 

: 1870 1931 7 PBCB CPBCB_W_LAST_CHANGED_COL] = 

3 137) 1936 [ ne -CORR_PP CPP_W_LAST_wCB_COLJ; 

; 1878 1934 6 . 

3 iene 32 e if ACTUAL COUNT () GEQ 3 ! If REQUEST_ARG supplied 
: 1876 1937 6 IF .REQUEST_CODE EQL SMGSC_PUT_CHARS AND 

: 1877 1938 6 HERE UEST ARG NEQ 0 

> 1879 1940 7 BEGIN ! Just one row changed 

3 1880 1941 7 PBCB CPBCB_W_FIRST_CHANGED ROW] = 

; 1881 1968 f . CURR_PP~CPP_W_ROWJ+.REQUEST_ARG-1; 

; 1888 1944 7 PBCB CPBCB WLLAST CHANGED_ROW) = 

3 1884 1945 7 .CURR_PP~CPP_@_ROWJ+.REQUEST_ARG-1; 

: 1885 1946 7 

3 ry] Hot $ END; ! Just one row changed 

: 1888 1949 6 1+ 

; 1889 1950 6 ! If REQUEST_CODE is present and it is of a type 
; 1890 1951 6 ' that could have added a border, we must redraw the 
; 1891 1326 6 ! border at this time. 

3 1898 1953 6 ie i 
3 1207 1388 ? IF ACTUALCOUNT () GEQ 2 ! If REQUEST_CODE supplied 
; 1895 1956 : IF .REQUEST_CODE EQL SMG$C_LABEL_BORDER 

; 1897 1958 6 IF .DCB COCB_V_BORDERED] 

: 1899 1960 $ IF NOT (STATUS = SMGSSDRAW_BORDER ( 

: 1900 1961 7 .0CB, .CURR_PP, .WCB)) 
: 1901 196¢ 6 THEN 

7 ¢ 1963 6 RETURN (.STATUS); 

3; 190 1964 6 

3 1904 1965 6 SMGS$$MIN_UPD (.PBCB); 

; 1905 1298 6 : 

: 108 1967 6 END ' Redraw just this virtual display 

: 138 1969 ; ELSE 

: 1909 1990 

; 1910 1971 6 BEGIN ' Must redraw it and outer ones 


-n 
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amg SMGSSCHECK.FOR_OUTPUT_DCB - Check to eee i} out 1o-808- 1382 90:35:65 SNGRTL SRE ISHeD SOUT. 6921 age 135 
; 1911 1972 6 '+ 3 
3 1318 197 ? ! Go rebuild window buffers for this pasteboard : 
: PAF ore starting with current pasting packet, and output. : 
3 13i2 1378 ? IF NOT (STATUS = SMGSSFILL_WINDOW_BUFFER ( .CURR_PP)) : 
; Hb a4 1978 6 RETURN (.STATUS); : 
3 1919 13g § END; ' Must redraw it and outer ones . 
; 1920 1981 4 END; ! Remapping necessary ; 
; 1 1356 END; ! Force output ‘ 
: 19 § 1982 CURR_PP = .CURR_PP CPP_A_NEXT_DCB); ! Walk the DCB side of : 
3: 1924 1985 ' the chain from front : 
: 1388 1989 END; ! Overall t Fosse 
3 3 ! Overa 00 3 
: 1359 1988 ; . 
: 1928 1989 RETURN (SS$_NORMAL) ; ; 
: 1929 1990 1 END; ! End of routine SMGSSCHECK_FOR_OUTPUT_DCB ‘ 
007C 00000 ~ ENTRY a * na tian Save R2,R3,R4,- ; 1745 ; 
55 04 AC dO 00002 MOVL DCB, RS + 1829 ; 
1¢ =6©AS.) DS 00006 TSTL 28(R5) 3 3 
03 13 00009 BEQL 2$ ; 3 
00E9 31 00008 1$: BRw 14$ : 3 
52 20 AS 00 Babes 2s: MOVL 32(R5), CURR_PP : 1833 3 
08 12 0001 BNEQ 3$ : 1836 3 
50 00000000G 8F D0 00014 MOVL #SMG3_FATERRLIB, RO : 1838 3 
04 00018 RET : 3 
50 20 AS YE OOOIC 3$: MOVAB 324R5), RO : 1843 ; 
50 52 D1 00020 CMPL CURR_PP, RO : ; 
FS 1 0023 BEQL 1$ 3 3 
54 14 A2 b0 00025 MOVL 20(CURR_PP), PBCBS : 1851 : 
O0A4 C4 D5 00029 TSTL 164 (PBCB) : 1853 3 
46 «1 0020 BNEQ 6$ ; 3 
53 08 A4 b8 F OVL Perege - wCB ; 1859 3 
29 $3 AS i) 3 MOVZWL 40(R5) ; 1866 3 
1 18 A2 00 CVTWL  ©24(CURR_PP), R1 : ; 
8 31 C 3 B ADDL R1, Re : : 
20 = A3 1 =A SUBW #1, RO, 32¢(WCB) PF é 
0 2A a3 ; 04 MOVZWL 42(R9) > 1869 : 
1 1A OA 4 CVTWL 26(CURR_PP), R1 ; ; 
50 51 C 48 ADDL R1, Re : 3 
22 A3 50 gf A 4 SUBW #1, R 34 (WCB) : 3 
0 p4 2 CLRL OPT FLAG : 1877 ; 
02 ge 1 CMPB (AP), # : 1878 3 
F 1F 00058 BLSSU 5$ 3 3 
16 08 AC } 2 CMPL REQUEST CODE, #22 ; 1881 : 
06 3 BEQL 4 3 3 
17 08 ry f: 8 6 CMPL REQUEST_CODE, #23 3; 1882 3 
° ; 64 BNEO : : 
50 1 0 66 4$ MOVL #1, OPT_FLAG : 1884 3 
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0B 0 €9 69 S$: LBC ~—- OPT_FLAG, 7$ : 1887 
4 DD ¢ PUSHL + 1893 
000000006 00 i FB i re CALLS #1, SMGSSUPDATE_PHYSICAL_CURSOR Foss 
65 2A Ag E8 0007 $5: LBS  42(CURR_PP), 11$ + 1906 
52 DD 00078 PUSHL cuR + 1909 
0000v CF 1 F 7 CALLS SAGSSHOVE _TEXT_TO_WINDOW_BUF : 
36 0 D 0 8 MOVL RO, STAT : 
4 6 € BLBC TATU $ : 
1c 2 8 0088 TSTW tars, 13s : 1919 
OOAB 4 of AS PB bonBE eee = «SP(CURR_PP). 168(PBCB) 19 
63 6c 91 0093 8$: CMPB (AP), #3 : 1388 
iF 1F 00 3 BLsSU 9 ; 
11 08 AC D1 0009 CMPL § _REQUEST_CODE, #17 + 1937 
19 12 0009C BNEG 9 : 
0c AC D5 0009E TSTL | REQUEST_ARG + 1938 
14 1 000A] BEQL 469 : 
50 18 A2 32 OO0A3 CVTWL  24(CURR_PP), RO + 1942 
50 OC AC CO 000A7 ADDL2 REQUEST~ARG, RO ; 
50 D7 O00AB DECL RO ; 
O0OAB C4 50 BO 000AD MOVW RO, 168(PBCB) ; 
OOAA C4 50 B80 00B¢ MOVW RO, 170(PBCB) + 1945 
2 6C 91 000B7 9$ CMPB (AP), #2 : 1954 
19 1F OOOBA BLSSU 10s : 
1C 08 AC D1 000BC CMPL § REQUEST_CODE, #28 + 1956 
1 iF 00C0 BNEQ ! $ ; 
OF 2F a5 E95 000C2 BLBC 47(R5), 10$ : 1958 
OC 8B 000C6 PUSHR #*M<R2.R3> : 1961 
55 0D b00¢8 PUSHL R : 
0000v CF 03 FB OOOCA CALLS #3, SMGSSDRAW_BORDER : 
56 50 D0 OOOCF MOVL RO, STA Tus : 
18 56 «ES 00002 BLBC STATUS, 12$ : 1960 
54 DD 000D5 10$:  PUSHL PB : 1965 
000000006 00 01 FB 00007 CALLS #1, SMGSSMIN_UPD ; 
11. 11 OOODE BRB 136 : 1906 
52 DD O00EO 11$:  PUSHL CUR : 1976 
0000v CF 9 é DOES CALLS  SAGSSEILL _WINDOW_BUFFER 3 
56 9 DO O00E MOVL 4 : 
04 56 €8 OOOEA BLBS CTATUS. WSs : 
50 56 D9 OOOED 128:  MOVL STATUS. RO : 1978 
04 OOF RET : 
52 $2 20 OOF! 13$:  MOVL § (CURR_PP), CURR_PP + 1984 
Fe 1 dor, BRW > 1843 
50 1 DO OO0F7 148:  MOVL #1, RO : 1989 
04 OOOFA RET : 1990 


; Routine Size: 251 bytes, Routine Base: _SMGSCODE + 04E5 


; 1930 1991 1 !<BLF/PAGE> 
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1-07 SMGSSCHECK_FOR_OUTPUT_PBCB = Check to see tf ou 12-868 1382 90:35:40 SMGRTL. neismeo} gout 6$2;1 . (18) 
3; 19 ¢ 1336 1 XSBTTL 'SMGSSCHECK FOR OUTPUT_PBCB - Check to see if output needed’ 

: 19 1995 1 GLOBAL ROUTINE SMGSSCHECK_FOR-OUTPUT_PBCB ( 

3; 1934 1994 1 PBCB : REF BLOCK C,BYTEJ 

>; 1935 1995 1 ds 

; 19 $ 1238 1 !44 

3 19 1997 1 ! FUNCTIONAL DESCRIPTION: 

; 1938 1998 1! 

3; 1939 1999 1! This routine is called when a change has been made to a 

3; 1940 000 1! articular pasteboard that requires the entire screen image to 

; 136) if : } e recomposed, e.g. aS a result of an UNPASTE operation. 

3 1968 008 1 ! CALLING SEQUENCE: 

> 1944 004 1! 

3 Mb af: B32 ! ret_status.wlc.v = SMGSSCHECK_FOR_OUTPUT_PBCB ( PBCB.rab.r) 

3 1909 009 1 ! FORMAL PARAMETERS: 

3 1948 008 1! 

3 1949 009 1! PBCB.rab.r Address of pasteboard control block for 

; 1950 010 1! affected display. 

3; 1951 011 1! 

; 1336 Og 1 ! IMPLICIT INPUTS: 

3; 195 013 1! 

: 1954 014 1! PBCB CPBCB_L_BATCH_LEVELJ 

3; 1955 015 1! 

3; 1956 He 1 ! IMPLICIT OUTPUTS: 

: 1957 017 1! 

: 1958 018 1! NONE 

> 1959 019 1! 

; ieee 031 : } COMPLETION STATUS: 

3 1206 0 § 1! SMG$_BATWAS_ON Ok, but batching was on so nothing happened 

: 196 sos 1! SS$_RORMAL Normal successful completion 

: 1964 $0 4 1! 

; 1965 OS2 1 ! SIDE EFFECTS: 

3; 1966 $0 Ra 

3: 1967 027 1! NONE 

3; 1968 028 1 !-- 

3: 1969 S44 1 

3; 1970 030 BEGIN 

: 1971 031 LOCAL ‘ 

3 Hh 43 O36 WCB : REF BLOCK C,BYTE), ' Address of window control 

3; 197 03 ' block 

3 1974 034 STATUS; ! Status of subroutine calls 

3; 1975 $3? 

3; 1976 $ WCB = .PBCB CPBCB_A_WCB); 

3 1977 0 

3; 1978 0 : '¢ 

: 1979 0 ! Do nothing if batching is in effect. 

me Be gS | 
3 19 ¢ Oeg IF .PBCB CPBCB_L_BATCH_LEVEL) NEQ 0 

3; 198 THEN RETURN” SAG$_BATWAS_ON; | 
we BS B. 
: 19 § ! Clear text buffer to blanks and attribute buffer to zeroes before we 

: Hb 14 bee ' start. Clear alternate character set buffer to zeroes if it exists. 
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ECK_FOR_OUTPUT_PBCB - Check to see 14-Sep-1 
CHSFILL (XC' ', .wCB CWCB_L_BUFSIZE], .wCB CWCB_A_TEXT_BUFJ); 
CHSFILL (0, .WCB CWCB_L_BUFSIZEJ, .WCB CWCB_A_ATTR_BUFJ); 
IF .WCB CWCB_A_CHAR_SET_BUF] NEQ 0 


CHSFILL (0, .WCB CWCB_L_BUFSIZE], .WCB CWCB_A_CHAR_SET_BUFJ); 


SMGR Iso 


irs 
} Clear text Line characteristics vector to zero. 


~ CHSFILL (0, .WCB CWCB_W_NO_ROWS] +1, .WCB CWCB_A_LINE_CHARI); 


14 
Tell the output routines that we've changed the whole WCB buffer. 


PBCB it eae CHANGED ROW] 


pojeoleleolelejelelelelelelolelo) 4 
WN —OOCODNOUSW—O)O we 


PEA MAMMAIG III 


1: 
.PBCB CPBCB_B_ROWS]; 
.PBCB CPBCB_W_WIDTH); 
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14 
! Go rebuild window buffers for this pasteboard and output. 
! Pass SMGSSFILL_WINDOW_BUFFER the address of the first pasting packet 


if any exist, else just output now-blank screen. 
[space CPBCB_A_PP_NEXT] EQL PBCB CPBCB_A_PP_NEXT] 
GIN ! Nothing pasyed -- output blanked buffer 


~ 
AUF WN (SO OONOUSWN "OOO 


OOOO oCoCoCooooooooooooo 
DWOWOOO0O0 NNN NNN NNO 


ROPOPOPONPONoPoPoPO No NoTPononononofnorny 


BE 
RETURN (SMGSSMIN_UPD (.PBCB)); 
END ! Nothing pasted -- output blanked buffer 
ELSE 
RETURN (SMGS$SFILL_WINDOW BUFFER ( 
.PBCB CPBCB_A_PP_PREV] - PP_PBCB_QUEUE_OFFSET) ); 
END; ! End of routine SMGS$CHECK_FOR_OUTPUT_PBCB 
0OFC 00000 -ENTRY SHGS$CHECK_FOR_OUTPUT _PBCB, Save R2,R3.R4,- 
57 04 aC D 99002 MOVL  PBCB, 
56 08 aA? 00 000 MOVL BCR §, wCB 
00AS C7 DS OOOOA TSTL 64(R?) 
08 1 0 BEQL 1$ 
50 000000006 8&F i MOVL #SMG$_BATWAS_ON, RO 
20 6E 00 2c 1$: MOVCS #0, (SP), #32, 40(WCB), a8(WCB) 


18 
08 1 
00 6E 86 2c : MOVCS #0, (SP), #0, 40(WCB), a12(WCB) 
8 TSTL 16(WCB) 
B 2s 
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engso SMGS$CHECK_FOR_OUTPUT_PBCB = Check to she tt oe | =300n 138% 90:35:46 SMGRTL.SRCISMGDI SOUT. 5 2:1 
28 Ab 00 6E , 00 2c mMovCS #0, (SP), #0, 40(WCB), a16(WCB) 
50 43 3¢ 2$: MOVZWL 2 2(WwCB), RO 
50 00 6E - a9 Be 03 MOVCS a, (SP), #0, RO, a44(WCB) 
OOAB (7 Bf 80 04 MOVW = #1: 168 (R7) 
OOAA C7 SFA? : 4 MOVZBW 95(R7) 120(R7) 
OOAC (C7 01 80 0004D MOVW #1, 172(R 
OOAE (7 SA A? sO 0058 MOVW  90(R7) Re eR?) 
57 7 D1 5 CMPL = (R7), R7 
A ie 0098 BNEQ 3$ 
7 oD D PUSHL  R7 
000000006 00 01 FB 0005F CALLS #1, SMGS$$MIN_UPD 
04 9066 RET 
7E 04 A? 08 C3 00067 3$: SUBL3 #8, 
0000v CF 01 FB 0006¢ CALLS #1, Snesee tie’ SWINDOW. BUFFER 
04 00071 RET 


; Routine Size: 114 bytes, Routine Base: _SMGSCODE + 05E0 


3; 2027 2087 1 !'<BLF/PAGE> 
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e073 SMGSSDRAW_BORDER - Move Coreer cherecters Ynto 1 =300 138% 90: 35i28 SMGRTL.SRC Shep {SOUT 63251 . 135 
: 2029 § 1 ZSBTTL ‘SMGSSDRAW BORDER = Move border characters into buffer’ 
; 2050 * GLOBAL ROUTINE SMGSSDRAW_BORDER ( 
: 20351 0 1 DCB : REF BLOCK [,BYTE), ! Display control block address 
; 20 ¢ 91 1 PP: REF BLOCK L,BYTEJ, ! Pasting packet address 
3 8 ? O36 } WCB : REF BLOCK (C,BYTE ! Window control block address 
; 2055 $92 1 !4¢ 
3 8 § 83? ! FUNCTIONAL DESCRIPTION: 
; 2038 b99 77 Draw the border characters into the text buffer of the WCB. 
; 2039 098 1! The cell in the text buffer has bits set to indicate which 
; ok 099 1! elements of a border character will be needed in this cell 
3 1 100 1! position. When the first such bit is set in the text cell, 
; ek 101 1! the Serryspend ing cell in the attribute array is flag with 
3: 204 106 1! a bit which signals that the text array cell no longer contains 
; bie 192 ! a printable character, but an encoding of the border character. 
; 2046 105 1 ! CALLING SEQUENCE: 
3 2047 106 1! 
; 2048 $108 1 y ret_status.wic.v = SMGSSDRAW_BORDER ( ODCB.rab.r, 
3; 2049 108 1! -rab.r, 
; 2050 2109 1! WCB.rab.r) 
3; 2051 110 1! 
: 028 111 1 =! FORMAL PARAMETERS: 
; 205 Ng 1! 
3 2054 113 1! 0CB.rab.r ! Display control block address 
; 2055 1144 1! PP.rab.r ! Pasting packet address 
: 826 V2 ; WCB.rab.r ! Window control block address 
; 2058 117 1°! IMPLICIT INPUTS: 
; 2059 118 1! 
; 2060 119 1! NONE 
: 2061 120 1! 
3 Oo¢ 121 1°! IMPLICIT OUTPUTS: 
; 206 1 ¢ 1! 
3; 2064 123 1! NONE 
3; 2065 1s 1! 
3 oes : 2 : COMPLETION STATUS: 
3 +43 ; i ! SS$_NORMAL Normal successful completion 
; 2070 129 1 ! SIDE EFFECTS: 
3; 2071 130 1! 
: Ore is) 63 US NONE 
: 207 1 ; 1 le 
3: 2074 1 1 
: 354 134 BEGIN 
: 6 135 
3; 207 1 $ '¢ 
3; 2078 1 ! Macro SMARKIT checks a ‘‘text’’ character to see if it is already a 
; 2079 1 8 ' border element in which case it OR's in new border contribution. 
3; 20 1 ! If it is not zee flagged as oerne a border element it stores the 
: 1 140 ' border contribution and marks attribute byte to record this is a 
: ¢ 141 ' border element. 
: 126 Hog 
3 4 14 CRO 
3; 2085 M 2144 SMARKIT ( OFFSET, ELEMENT ) = 
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1 $s 0-74 
SMGRTL.SRCJSMGDISOUT.B52;1 (19) 


END %; * 


; 208 M BEGIN 

; 9 4 " IF_.(PTRA C.OFFSETJ)<ATTR_V_BORD_ELEM, 1> 

: 2089 % PTRT C.OFFSET] = .PTRT C.OFFSET) OR 

$096 : ELSE = C.OFFSET] OR ELEMENT 

; 2091 M BEGIN 

: O36 M PTRT oer eeta = ELEMENT; 

; 209 ™ PTRA C.OFFSET) = ATTR_M_BORD_ELEM ; 

5098 . END Boe 

> 2096 j 

3; 2097 + 

3; 2098 ! Macro SCALC_LEFT_INDEX computes the byte offset into the WCB text and 
3; 2099 ! attribute buffers where a left border element needs to be placed for 
: 130 a double-wide Line to make it come out in the correct column. 

; 08 MACRO 

; 03 8 SCALC LEFT INDEX = 

> 2105 4 SINDEX = (.WLN -1) * .WCB CWCB_W_NO_COLS] + 

: M (.PP CPP_W_FIRST_WlB_COL] / 2) -1; 


t+ 

! Macro SCALC_RIGHT_INDEX computes the byte offset into the WCB text and 
! attribute buffers where a right border element needs to be placed for 
' a double-wide Line to make it come out in the correct column. 


MACRO 
SCALC_RIGHT_INDEX = 


SINDEX = (.WLN -1) * .WCB CWCB_W_NO_COLS) + 
so ((.PP CPP_W_FIRST_WCB_COC] * .PP CPP_W_MOVE_LENGTH) +1) / 2) <1; 


LOCAL 
$ 


! Position where the first (or only) border element will be 

! written. This is a displacement from the aogianine of the 

! window buffer. Before using this position, we must always 

! check to see if it points into the confines of the buffer. 

! This basically tells us if that portion of the border is 

! visible considering how the virtual display is pasted to the 
! pasteboard. 


LDES : REF BLOCK C,BYTE), 


POPOPOPONIPUNENOND 2 OOO 
SSN UN OOWNAME WOOD 
POR SPORORORONOROROROROPUNORONONONONONOPONO PONTOON ROROPUNONOPUNUNOPonononononononunofnun: 


! Address of the dynamic string 
' descriptor in the DCB which 
records the border label text 


IN.AWID 
wr 
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SS2 aceon 
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4 string. 
PTRT : REF VECTOR fF -BYTE}. ! pointer to top of WCB TEXT buf 
: REF VECTOR C,BYTE ! pointer to top of WCB ATTR buf 
8 ' Row number of top border 
39 9 ' Row number of botton border 
40 9 EFT COL, ' Col number of left border 
41 $8 RIGHT_COL, ' Col_number o right border 
42 WCB_LOV : REF VECTOR C,BYTEJ,  ! Cine control block 
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' 


8 PBCB : REF BLOCK C,BYTE); ! ‘ fe of pasteboard control 
Cc 
0 
PTRT = .WCB CWCB_A_TEXT_BUF); 
PTRA = .WCB CWCB-A-ATTR-BUF J; 
PBCB = .PP CPP_A-PBCB_ADDR); 
0 WCB_LCV = .WCB”COCB_A-LINE_CHARI; 


1+ 

! If no part of the virtual display projects to the visible part of the 

' pasteboard, abandon atvenpt to draw border. This is strictly speaking not 
! the correct solution since it ignores the case where a virtual display is 

! pasted such that it is not visible, but its border should be. Trying to 

! make this pathelogical case work will require some coordinated work on the 
part of SMGSSCALC_PASTE_TRANS. (See corresponding note there.) 


IF .PP CPP_W_ROWS_TO_MOVE) EQL 0 OR 
-PP CPP_W-MOVE_LENGTH) EQL 0 


RETURN (SS$_NORMAL) ; 


MPOIPOPIPOPIPIPINIPPUPoNononofnoroforrrry 


BEEBE & FAN WWIWWIW INI NININPININPININID 2 SO oo 


ONAN WO OONAUE WIN O ODNAUE WIN $9 ODNAUESWN OVD ONOUES WN “OVOONOUSE 


+ 

' Compute the row and column numbers where the borders fall. Note these 
! rows and columns may not map into buffer and need to be validated 
before use. 


UPPER_ROW 
LOWER-ROW 
LEFT COL 

RIGHT_COL 


.PP CPP_W_ROW) - 1; 
MAX ( .PP"CPP_W_ROW], 1) + .PP CPP_W_ROWS_TO_MOVE); 
PP CPP w.COL] = 1; 
MAX ( .PP"CPP_w_COLJ, 1) + .PP CPP_W_MOVE_LENGTH); 


POPIPIPIPIPIPIPINIPYPINIPINPININPINYPUPININONY NIN: 


he Line above where the virtual display is pasted exists in the 
ow buffer, draw the the top border. 


UPPER_ROW GEQ 1 
BEGIN ! Top border 


'+ 
If WCB is special, blank it and force Line to normal. 


= 
‘ee? 


PIPOIPOPIPONIPOPOPONONININININPUNNONY 


If . 
THEN 


WN — SO OCONAOVUESWN $C OONAUES WN OO OONAOUES WN (ODO ONOULW 


if <-UCE_LCVC. UPPER _ROwd NEQ 0) AND .PBCBCPBCB_V_WIDE] 
' Force Line normal 


BEGIN ! 
CHSFILL(ZC* *, .WCBCWCB W NO _COLS) 

TC’ (UPPER ROO-13*.WCBCWCB_W_NO_COLS) ); 
CHSFILL(XC' 


wCBCWCB_W NO_COLS 
WCB_LCVC.UPPE 
END; ' For 


wn 


‘J 
.UPPER_RO@-13*.WCBCWCB_W_NO_COLS) J); 
ROWJ=0 

ne normal 


i 
- .WCB CWCB_W_NO_COLS) ; 


.PP CPP_W_TO_1 j 
MOVE _LENGTHT 


Ss 
R 1 FROM 1 TO”.PP 


PAINE B&B BE FE AAIWIWIWII AIP NPINPINPIPINPINON 
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SMGSSDRAW_BORDER = Move border characters 
BEGIN ' Top Line loo 
SMARKIT shes 8 RD_M-HORTE LE 
(PTRT C.SPOSJS<BORD-V~DOWN,1> = 0; ! Knock down ‘‘down'’ seg. 
S -SPOS + 1; 
END; ! Top Line loop 
IF .UPPER_ROW LSS .PBCB CPBCB_W_FIRST_CHANGED_ROW] 
PBCB CPBCB_W_FIRST_CHANGED_ROW] = .UPPER_ROW: 


END; ! Top border 


13 , 
Sep-1986 13:09:46 ESmantLesneasngo! Sour 


1+ 

! If the Line below where the virtual display is pasted exists in the 
window buffer, draw the the bottom border. 

IF .LOWER_ROW LEQ .WCB CWCB_W_NO_ROWS) 


BEGIN ! Bottom border 


OOOO O0O000 000000009 0900 09 09 09 09 09 INI NI NII NIN NOAA AAA AOAAOAOOU 
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END; ! Bottom Line Loop 
F .LOWER_ROW GTR .PBCB CPBCB_W_LAST_CHANGED_ROW] 
PBCB CPBCB_W_LAST_CHANGED_ROW) = .LOWER_ROW; 
END; ! Bottom border 


2 
2 
HY 
2 
2 2 1+ 
§ 22 If WCB is special, blank it and force Line to normal. 
2 2 
§ $$ Fg eee LOMER ROM NEQ 0) AND .PBCBCPBCB_V_WIDE] 
2 22 BEGIN ! Force Line normal 
2 22 CHSFILL(ZC* *, .WCBCWCB_W_NO COLS) 
2 22 (LOWER ROO-13*.WCBLWCB_W_NO_COLS) J); 
2 2e CHSFILL(%C* *, .wCBCWCB_wW_NO COLS] 
2 22 PTRAC (.LOWER_RO@-13*.WCBCWCB_W_NO_COLS] J); 
2 22 WCB_LCVC.LOWER_ROWJ=0 
§ $$ END; ' Force Line normal 
33 2 SPOS = .PP CPP_W_TO_INDEX] + (.PP CPP_W_ROWS TO_MOVE) * 
2 2 A Ta:| CwCB_@_NO_COLS) »: 
$39 § a I FROM 1 TO .PP CPP_W_MOVE_LENGTHJ 
2 2 BEGIN ! Bottom Line Loop 
2 2 SMARKIT Fea BORD_M_HORIZ ); 
2 (PTRT C.SPOSJS<BORD-V-UP,1> = 0; ! Knock down "up" seg. 
§ SPOS = .SPOS + 1; 


Oooo 


‘+ 

! If the column to the left of where the virtual display is pasted 
exists in the window buffer, draw the left border. 

IF .LEFT_COL GEQ 1 


BEGIN ' Left border 


Be Se Se Oe Ge Be Se Se Ge Se Be Ge Fe Gs Ge Se Se Ge FF Se Ge Ge Ft Se Ge Se Se Ge Ge Ge Fe Se FFF Se SESH Ss SH Se SHS4 Se SESH SE SH Se SH Se Se Se Sse Se Seteas 
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un Ad 

iz 
“ewe 
mo 


8 


LAY QUTPUT = —— Virtual Displays 
BORDER = Move bord 


LOCAL 

WLN, ' Line numb r in wCB of Line 

LCV : REF VECTOR C,BYTEJ; ! Addr of | + characteristics 
vector in 
CPP_W Ay! ence HRD: 
WCB puce eA 
& ote 

FROM 1 TO TH, Upp. iW Rous. TO_MOVE) 


! Lett ey ws Loop 
Cv C.WLNJ ! If normal or 
(NOT .PBCB CPBCB. V_WIDEJ) i DWDH not supported 


Pd 


14 
er characters {nto 16 ah 198 99: 39:45 SnGRTL Ske Shep Sout 6 B32;1 Page 48) 


IN ; porees case 

SMARKIT (SPOS, BORD_M_VERT ) 
RT C. SPOS) $ <BORD™ “VRIGHT, 1h © Gz ! Knock down right’ seg. 
! Normal case” 


sty ! Double-wide or Double-wide/Double-high case 
NDEX; ! Special index for DWDH 

EFT_INDEX 
INDEX, BORD_M_VERT); 
NDE X11) <BORD = + “RIGHT, 1> = 0; ! Delete “right” 
! Double-wide or Double-wide/Double-hi gh case 
s -WCB cWce. W_NO_COLS]J ; 

END; { lett column loop 
if gL&FT cot LSS .PBCB CPBCB_W_FIRST_CHANGED_COL] 

PBCB CPBCB_W_FIRST_CHANGED_COL] = .LEFT_COL; 
END; ! Left border 
'¢ 
i If the column to the cee of where the virtual display is pasted 
exists in the window buffer, draw the right border. 
etter me LEQ .WCB CWCB_W_NO_COLS) 

BEGIN ! Right border 

LOCAL 

Line number in WCB buffers 


WLN, 
LCV : REF vecTbR -BYTEJ; ! Addr of Line characteristics 
! vector in WCB 


POPIPOPIPINIPINPOPINI PINION NO NUNoPUNPoNofonoponofyunononofnonopopopnofnonoponernyd 
OO OOOO 00 000 09 09 0009 09 09 09 SIN NIN NUNN NN NOAA AAAAOAOOUIUIN 


oo 


Morrr 


WUAMIAIWWIWIN 


WLN = te CPP_W_FIRST_WCB ROW); 
04 LCV = gee wtB- of 7h iNE CHARI; 
05 SPOS = “PP PP INDEX] + .PP CPP_W_MOVE LENGTH); 
s] INCR I F tre TO! CPP_W_ ROWS. TO MOV E) 
0 dO 
30 BEGIN ! de column Loop 
IF .LCV C.WLNJ 0 OR ! If normal or 


(NOT .PBCB Chace. V_WIDE) ' DWDH not supported | 
' Normal case 
| 
| 


ROPIMIPIPIPIPSPIPIPINPIAIMNONINININIDINPYININNYINININININPINININPIPOPONUNNNONO NP NoPoNonononononononopofropofpofory 


WHA 
to 8 
Wr —-O0® 


BEGIN 
SMARKIT (SPOS, BORD_M_VERT ) ; 


POPOROPORIPIPIPINIPURIPIAIPUIPINININININPINININI NII NINININININNININININININIUNIPININININININININPI NPP ponrnnny 
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(PTRT C.SPOS])<BORD_V_LEFT,1> = 0; ! Knock down “‘left’’ seg. 
END ! Normal case” 


Pw 
Fo 
ou 
maw 


IF _<RIGHT_COL GTR .PBCB CPBCB_W_LAST_ CHANGED, COL 


ELSE : 
Poet ! Double-wide or Double-wide/Double-high case ; 
SINDEX; : Special index for DWDH : 
SCALC_RIGHT_INDEX : 
ARKIT (SINDEX *ebRD_M F 

(PTRT C.SINDEXJ5<BORD- at “LEFT i> = 0: | Delete “left” ; 
END; ! Double-wide or Doub e-wide/boubleshigh case ; 
SPOS = .SPOS + .WCB CWCB_W_NO_COLS : 
WLN = .WLN + ma : 
ND; ' Right column loop ; 


PBCB CPBCB_W_LAST_CHANGED_COL] = .RIGHT_COL; 
END; ! Right border 


14 
Races upper Left-hand corner if position exists in buffer. 


IF oer ROW GEQ 1 AND ' Row exists 
T_COL GEQ 1 i Col exists 


BEGIN ¢ pp PPE wf it ce corner 
SPOS = INDEX] - WCB CWCB_W_NO_COLS] = 1; 
SMARKIT- (SPOS, “BORD Swe LCORN 5 3 


oP oP oP oP oe oP oP oF ot ot oe ad ee te te Oe eh a nh ad nh ad nd mh ad ahead ab ab ad abtad ab ad ahah ah ahah ahah ahiad 
Ot tt ot = I 4 SOOT DOODOOOCOCOCOOVOOO OO OCODDODDOOWWDO NNN ANN aa 


Rorononoronorororon 
OOO NOUS WN 0 OO NOU EWN OO OONOA VEIN © ODNAOU EWN $ O OONOYV EWN" OVOONOULW 


oS 
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; 
2 
rd 
? 
2 
2 
; END; Upper left- Rend corner 
14 
4 3 Handle upper right-hand corner if position exists in buffer. 
5 me awe -UPPER _ROW GEQ 1 AND ! Row exists 
§ -RIGHT_COL LEQ .WCB CWCB_W_NO_COLS) ! Col exists 
51 2 BEGIN pp ERE rig inpes corner 
26 2 SPOS = PWT x] - ue ee W_NO_COLS] + 
5 2 W_MOVE_LENG 
54 2 SMARKIT (spos, fiiss “R URCORN ) ; 
rH § END; ! Upper right= -_ corner 
57 '¢ 
38 ; 1 Handle lower left-hand corner if position exists in buffer. 
0 IF .LOWER_ROW Lge «WCB CWCB_W_NO_ROWS] AND ! Row exists 
1 "4 »LEFT_TOL Q j i Col exists 
368 4 BEGIN ! Lower Left-hand corge 
4 SPOS = .PP CPP_W_TO_INDEX] + (SPP CPP_W_ROWS_TO MOVE) * 
5 4 .wtB “CWCB_ W _Ro_ COLSJ) - 1; 
4 SMARKIT (SPOS, BORD_M_LLCORN ) ; 
4 END; !Lower lef€-fand corner 
3 158 5 16 
0 4 i Handle lower right-hand corner if position exists in buffer. 


ESF SH 
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a 

Pw 
PO 
ou 


S 
R 
H 71 430 to 
3 ie 431 IF .LOWER_ROW LEQ .WCB FCB _W NO _ROWS AND ! Row exists 
3 oF ri ¢ uae LEQ .WCB CWCB_W_NO_COLS ! Col exists 
3; 2375 434 BEGIN ! gust right cheng corner 
3 8 435 SPOS = .PP CPP_W_TO INDEX] + 
: 237 4 ° (.PP-CPP Ww ROWS TO_MOVE] * .WCB CWCB_W_NO_COLS]) + 
; 2378 4 .PP CPP_Q_MovE CENGTHI ; 
3; 2379 438 SMARKIT (SPOS, BORD-M_LRCORN ) ; 
; 2380 439 END; ! Lower right=hand corner 
; 2381 440 
3 386 44] '+ 
3; 238 rr ! Check to see if this border is labeled and if so, move the label text 
3; 2584 see ! into the approriate border area. 
3 MH 444 ! ALL the fields in the PP accessed below have been previously computed 
3; 2386 Stee ' at the time the virtual display was pasted to the pasteboard so 
3; 2387 446 ! that they need not be recomputed each time through here. The Lengths 
: Saas 2447 ' used in the various CH$MOVE's and CHSFILL's have been so computed 
3 ti yk: that if no parts of the label fit, the lengths used are zero. 
3; 2391 2450 g LDES = DCB CDCB_Q_LABEL_DESC]; 
3 $306 2451 2 IF .LDES CDSC$WLENGTH)”NEQ 0 ' If label exists... 
3 $30 Steg THEN 
3 2394 245 BEGIN ' Overall border Label processin 
3 $302 size CASE .DCB CDCB_B_LABEL_POS] FROM SMGS$K_TOP TO SMG$K_RIGHT OF 
3 $399 2456 3 CSMG$K_TOP]: 
3; 2398 2457 & BEGIN ! Label in top row 
3; 2399 2458 4 '+ 
; 2400 2459 4 ' If row where Lahel Lands is not on the pasteboard, no 
; 2401 so60 4 ' movement will be necessary. 
3 se08 461 4 te 
; 240 $796 4 IF .UPPER_ROW GEQ 1 ! If row above present... 
3; 2404 2463 4 K 
3 2405 2464 5 BEGIN ! Top present 
: 2406 2465 5 
: sebe 2466 5 CHSMOVE ( 
: 2408 2467 5 -PP CPP_W_LABEL_BYTES_TO_MOVE) ! Lengeh 
3 2409 2468 5 “LDES COSC$A_ POINTER] + -PP CPP_W.SRC_CABEL_OFFJ, ! Source 
: $219 469 5 PTRT C.PP CPP_W_OST_LABEL_OFFIJ);~ ! Best 
: 2411 470 5 
3 sels 471 5 CHSFILL ¢ : 
3 241 sore 5 -DCB_COCB_B_LABEL REND] ' Fill 
+ 2614 47 2 PP CPP =} ABEL BYTES 16 MOVE] i Number 
+ 2415 474 PTRA C.PP"CPP_W-DST_LABEC_OFFJ4); ! Dest 
: “18 475 5 
3: 241 $76 4 END; ' Top present 
: 2418 47 END; ! Label in top row 
: 2419 478 
3: 2420 479 CSMG$K_BOTTOM): 
; ‘ 1 r 9 : BEGIN ' Label in bottom row 
3: 24 ¢ 4 § 4 ' If row where label lands is not on the pasteboard, no 
: r : ? 2 movement will be necessary. 
: 26 $ 485 4 IF .LOWER_ROW LEQ .WCB CWCB_W_NO_ROWS] ! If row below present... | 
3; 242 4 4 THEN | 
| 


> ten - i i ~ 
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> 24 3 487 BEGIN ! Bottom present i ¢ 
3; 24 4 3 3 

; " , 290 bah W_LABEL_BYTES TO MOVE] iL th 
3 ‘ ! Len 3 

> 24 : 491 .LDES COSTSA POINTERS “+ PP Fob W_SRC PABEL_OFFI, ! Source : § 
; : ? rp PTRT C.PP CPP_W_OST_LABEL_OFFJIJ3;~ ! Best : é 
: 2435 494 2 CHSFILL (¢ 34 
: 2436 495 -DCB_CDCB_B_LABEL_RENDJ ' FLL + ¢ 
> 2437 496 5 “PP CPP WIEABEL BYTES 16_MOVE] i Number ; ¢ 
2438 497 PTRA C.PP"CPP_W-DST_LABEC_OFFJJ); ! Dest 7 
3; 2440 499 4 END; ' Bottom present -¢ 
; ret 200 ; END; ! Label in bottom row 3 ¢ 
3 $4 
; guc8 a06 CSMG$K_LEFT]: $4 
> 2444 503 4 BEGIN ! Label in Left column 34 
3 24465 504 4 '+ 3 4 
3: 2446 505 4 ! If column where Label lands is not on the pasteboard, $4 
> 2447 2506 4 ' no movement will be necessary. 34 
: 2448 2507 4 '- $< 
3 2449 508 4 IF .LEFT_COL GEQ 1 ! If column to left present... 3 ¢ 
: 2450 509 4 THEN 3 ¢ 
3; 2451 510 5 BEGIN ! Left present e< 
; $28 2511 § LOCAL $< 
; 245 $216 5 WLN, ! Line # in WCB buffer | 
; Stee 2513 5 LCV : REF VECTOR C,BYTEI, ! Addr of Line ; ¢ 
3: 2455 2514 § ' characteristics vect. 3 ¢ 
: 2456 2515 5§ ' in wCB $< 
: 2457 s2ig 5 ; ' Local index | 
: 2458 517 6 WLN = (.PP CPP_W_DST_LABEL_OFF] / 3 ¢< 
: 2459 2518 5 WCB CwlB-W_NO_COLSJ) + 1; 3s ¢ 
: 2460 2519 5 LCV = .wCB CWCB_A_CINE_CHARI; a 
> 2461 2520 5 SPOS = .PP CPP_@_DST_LABEL_OFFJ; ar | 
; $086 2521 5 I = 0; $4 
z seer $256 2 UNTIL .1 EQL .PP CPP_W_LABEL_BYTES_TO_MOVE) : § 
3 sees $2Se 6 BEGIN ! Character by character movement | 
: 2466 525 6 IF .LCV C.WLN) EQL ! normal or 3 ¢ 
3; 2467 2526 7 (NOT .PBCB CPBCB_V_WIDE]) ! DWDH not supported é ‘ 
; 2468 2527 6 HEN : 

3; 2469 2528 7 BEGIN ! Normal case 3 
: 2470 2529 8 PTRT C.SPOS) = .(.LDES COSCSA_POINTER] + a4 
> 2671 $3 0 pp CPP WwW SRC_LABEC_OFF] + .1); ¢ 
: 267 531 7 PTRA C.SPOS) = .DCB CDCB7B_LABEL_REND): 3 
: 247 236 7 ND ! Normal case 3s ¢ 
> 2674 533 6 ELSE 3 ¢ 
3 2475 534 7 BEGIN ! Special case 3 4 
3: 247 535 7 LOCAL 3 4 
: 247 5 § 7 SINDEX; Pa | 
3; 2478 5 7 SCALC_LEFT_INDEX ; ; 4 
3 2479 538 : PTRT C.SINDEX] = .(.LDES CDSCSA thee + 4 
3 $89 539 -PP CPP_W_SRC_LABEL_OFFJ + sp) a4 
; 2481 540 7 PTRA C.SINDEX] = .6CB COCB_B_LABEL_RENDJ; 3 4 
3: 26 ; 541 6 END; ! Special case 3 4 
3: 26 245 6 e 4 
3: 24 545 6 SPOS = .SPOS + .WCB CWCB_W_NO_COLS); B44 
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485 = ,1¢1; 
4 | WLN = .WLN + 1; 
& END; ' Character by character movement 
488 END; ' Left presen 
138 END; ! Label in left column 
491 CSMG$K_RIGHT): 
7 BEGIN ! Label in right column 
494 i If column where Label Lands is not on the pasteboard, 
ret ' no movement will be necessary. 
re dd IF gRIGHT_COL LEQ .WwCB CWCB_W_NO_COLS] ! If column to right present... 
499 BEGIN ! Right present 

LOCAL 

' Line # in WCB buffer 


WLN, 

LCV : REF VECTOR C,BYTEI, ! Addr of Line 
' characteristics vect. 
! in WCB 


' di ' Local index 
WLN = (.PP CPP_W_DST_LABEL_OFF] / 
.WCB CwlB-wW NO _COLST) + 1; 
LCV = .WCB pecs K_CINE_CHARI; 
SPOS = .PP CPP_Q_BST_LABEL OFFI; 
UNTIL .1 EQL .PP"CPP7W_LABEL_BYTES_TO_MOVE) 
BEGIN ' Character by character movement 
IF .LCV C.WLNJ FQL 0 ! normal or 
ae -PBCB CPBCB_V_WIDEJ) ! DWDH not supported 
BEGIN !' Normal case 
PTRT C.SPOS) = .(.LDES CDSCSA_POINTER] + 
pp CPP_wW SRC_LABEC_OFF] + .1); 
PTRA C.SPOS) = .DCB [CDCB7B_LABEL_REND): 
a. ' Normal case 


BEGIN ' Special case 


SINDEX: 
SCALC_RIGHT_INDEX ; 
PTRT C.SINDEX] = .(.LDES CDSCSA POINTER » 
.PP CPP_W SRC_LABEL OFF) + x1): 
PTRA C.SINDEX] = .6CB COCB_B_LABEL_RENDJ; 


ND; 4 pec al case 
ity Fe aes + .WCB CWCB_W_NO_COLS); 
=. 4 
WLN = .WLN + 1; 
END; ' Character by character movement 
END; : “ee present 
END; ! Label in right column 


COUTRANGE): 
res RETURN (SMGS$_FATERRLIB); 
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SMGSDISPLAY_OUTPUT = Out 
SMGSSDRAW_BORDER - Move 


END; 
RETURN (SS$_ 
END; 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:40 AX=11 Bliss-32 V4.0-74 Sm 
wit SMGSS$DRAW_BORDER - Move border characters thto 12286871382 99:59:48 SMGRTL’ $RETSMGDL SOOT 2;1 Page .$) 1-( 
664A 0B : 34 
50 08 AE 00 88 MOVL wWCB_LCV, RO + 225 F 
6766 es Ope CLRE (UPPER Row) [RO] _— . | 
50 20 AB 3C OOOBF 6S: MOVZWL 32(R113, RO + 2256 24 
51 oc ac 06 ¢! ¢ ADDL3 #6 : s 4 
36 ¢ 00¢ MOVZWL (RI), SPOS : 3 4 
56 0 C3 B SUBL 3 SPOS, RO, SPOS p= 2 
. e 4 
18 11 00001 BRB 0$ : > 
664A 95 000D3 7$: TSTB (SPOS) CPTRAJ : 3 4 
: 1 0004 BGEQ 5 : 24 
6649 3 8 0008 B1SB2 #5, (SPOS)CPTRTJ : 3 
6649 0§ 90 OOODE 8: MOVE #5, (sPOS)CPTRTI : + 
664A 80 8F 90 O00E MOVE #=128, (SPOS)CPTRAJ : 3 
8649 08 BA OO0E 9$: #8, (SPOS) +CPTRTI + 2261 24 
E3 50 16 AE FS OOEB 10$:  AOBLEQ 2 1, 7$ + 2257 2 
0 10 AE 000000A8 8F Ci O00F ADDL3 #168, PBCB, RO + 2265 3 4 
57 60 1 GO FC S00F9 CMP #0, #16, (RO), UPPER_ROW : 3 
3 4 
50 10 AE 000000A8 BF C1 00100 ADDL3 #168, PBCB, RO > 2267 | 
6 7 BO 00109 Mov UPPER ROW, (RO) : 3 
20 Ac D4 0010C 11$: CLRL big ; 2275 z 4 
50 oc AC 02 C1 O010F ADDL3 #2, WCB, RO : 34 
58 60 10 00 ED 00114 CMPZvV #0, #16, (RO), LOWER_ROW : 24 
03 18 00119 BGEQ ~=-—*12$ : 34 
0098 31 00118 BRW 18$ : 34 
20 AE D6 OO11E 12$: INCL 32(SP) : far 
50 08 AE DO 00121 MOVL WCB_LCV, RO : 2283 24 
6840 95 00125 TSTB (LOQER_ROW) CROJ : 3 
3c «13 00128 BEQL 13$ : 36 
51 10 AE OOOOOOFA BF Ci 0012A ADDL3 #250, PaCB, R1 : 3 
30 61 34 00133 BLBC (R1). 13$ : 4 
57 FF AB SE 00136 MOV -1(R8), R7 : 2287 3 4 
51 Oc AC 06 cI 0013A ADDL3 #6, WCB, R1 : 34 
50 61 3C 0013F MOVZwL (RI), RO F 34 
57 50 C4 00142 MULL 0, R7 : 24 
bE oc AC 06 C1 0014 ADDL3 #6. WCB, (SP) : 24 
00 BE 20 6E 6709 2c O14A movcS #0. (SPS, #32, @0(SP), (R7)CPTRTI : 34 
3 4 
6E oc ac 06 cI O01$¢ ADDL3 #6, WCB, (SP) : 2289 34 
00 BE 20 6E 6720 C 00197 movcS #0. (SPS, #32, @0(SP), (R7)CPTRAI : ar 
: 4 
50 08 A 15F MOVL WCB_LCV, RO : 2290 ; 
oaeh be O13 CLRB. (LOWER ROW) CROJ : | 
50 Oc ac 06 c 166 13$:  ADDL3 #6, WCB, RO > 2294 24 
51 60 3C 00168 mov2we (RO), RI : 34 
31 04 AE ca O16 ULL2  4(SPS, R1 : 34 
6 0 AB ¢ 1 MOVZWL 5ecrit) SPOS : 2293 2 
56 31 CO 0017 ADDL2  R1, SPOs ; 2 
: b4 17 CLRL I : 2298 34 
18 11 00178 BRB 7$ : 24 
664A 95 0017) 14$:  TSTB  (SPOS)CPTRA) : 24 
$ 18 001 BGEQ =s-«15$ : 24 
6649 3 ‘ BISB2 1 , (SPOS) CPTRT) : 34 
6649 2 40 C0188 158: BOYB #&. (SPOS)CPTRTI : 4 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 1b-3e =1984 00:37:4 AX-11 Bliss-32 V4.0-74 Page 68 
ng33 SMGSSDRAW_BORDER - Move border characters tnto 1 ~8ep-19 4 Tee OMGRTL SREISHED {SOUT BS2:1 . a% 
64A 80 8F 90 001 OVB #128, (SPOS)CPTRAI : 
649 2 BA 001 198: BICB2 #2 (§P0S) +CPTRTI + 2299 
3 50 14 AE F3 00195 178: AOBLEQ 20(SP), I t 2295 
A AA BF OC A ADDL3 # BCH, R + 2303 
0 10 000000 1 0019 170, PBCB, RO 
58 60 1 0 FC 1A CMP #0, #16, (RO), LOWER_ROW : 
50 10 ar QOO000AA BF C1 OOTAA ADDL3 #170, PBCB, 29 + 2305 
? 3 BA ibe 18$ CLRL OR MERON. 0) ; 2313 
18 AE 05 188 TSTL L FT_COL ; 
03 14 0018B BGTR $ : 
OOA2 31 0018 BRW 29$ : 
5 b6 1€0 19$: INCL RS ; 
59 2F AB ¢ O1C MOVZWL 47(R11), WLN ; 3320 
5 OC AE p 016 MOVL 12(SP) LCV ; 2321 
56 20 AB ¢ O1CA MOVZ2WL 32(R115, SPOS + 2322 
56 D7 001C DECL SPOS : 
54 04 001D CLRL oo? + 2341 
6B 11 001D BRB 58s : 
604 3 001D4 20$:  TSTB (WLN)CLCV) + 2326 
o¢ 1 00107 BEQL 21$ ; 
51 10 at OOOOOOFA BF Ci 00109 ADDL3 #250, PBCB, R1 + 2327 
1A 61 Fs Oleg BLBS  _ (R1) eas ; 
664A O1ES 218 TSTB = (SPOS) CPTRAI : 2330 
06 18 00168 BGEQ  22$ : 
6649 OA 88 OO1EA BISB2 #10, (SPOS)CPTRT ; 
09 «(11 OO1EE BRB 23$ ; 
6649 OA 90 O01FO 228: MOVB #10, (SPOS)CPTRT) ; 
664A 80 BF 90 001F4 MOVB #-128 (SPOS) CPTRAI : 
6649 1 8A 001F9 238:  BICB2 #1, (SPOS)CPTRTI > 2331 
3 11 OO1FD BRB 27$ ; 3326 
51 FF AO a OFF 248: MOV -1(RO), R1 : 2336 
57 oc AC 0 : 0 03 ADDL3 #6, WCB, R7 : 
34 go tk 00508 rove. (a0), Re 
52 33 AB ge 020 MOVZWL 51(R11), R2 ; 
52 0 c6 1 DIVL2 ; 
51 FF A241 1 MOVAB =1(R2)CR1) S INDEX : 
614A ? 1A ts ( ppt : 2338 
6149 A as 1F 81 SB2 #10, (SINDEX)CPTRTI F 
6149 A 9 3 25$:  MOVB #10, (SINDEX)CPTRT) ; 
614A 80 8F MOVB #-108, (SINDEX)CPTRA ; 
6149 1 BA 368: BICB2 #1, (SINDEX)CPTRTI ; 3339 
52 oc AC cI $: ADDL > 2341 
51 ¢ MOVZ2WL (RO), RI : 
56 C ADDL2. R1, §POS : 
0 D INCL LN : 
90 54 04 AE F F 28% AOBLEQ 4(SP), 1, 208 > 232 
5 10 AE OOODDOAC BF C 4 ADDL3 #172, PBCB, RO : 
18 AE 6 1 0 Ff , CAP #0, #16, (RO), LEFT_COL : 
50 10 A 000000A¢ F Ci ADDL3 #172, PBCB, RO > 2347 
50 o ke 06 at ; 298: ADDS FT cou. (RO) : 2355 
8 AE 2 §¢ 0 3 movzwe (RO), Ba cSp) ; 
| 
| 


— 
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1-07 SMGSSDRAW_BORDER - Move border characters thto 1 305-1382 99:39 4 SMGRTL.S neisneo! pisaur. B52;1 2 18) im 
52 04 00268 CLRL = RR : 
COL, 5 
18 AE 1 OA CMPL §- RIGHT_COL, 24(SP) 
00st $4 a | (ie : 
5 b6 77 30$ INCL R : 
59 FAB § 79 MOVZWL 47(R11), WLN ; 362 
f AE p 7D MOVL (SP), LCV : 
26 AB ¢ 1 MOVZWL (R115, SPOS + 2364 
n 4 Ae C 5 ADDL2 (SP), SPOS ; 
54 D4 9 CLRL | + 2372 
63 11 00288 BRB 9$ ; 
6043 9 0 31$ TSTB (WEN) CLCVJ + 2368 
oc (1 BEQL § : 
51 10 AE OOOOOOFA BF C 0 9 ADDL3 #250, PBCB, R1 : 2369 
1A 61 8 98 BLBS  (R1) : 
664A 0 F 32$:  TSTB (SPOS) PTRA + 2372 
6 18 002A BGEQ 33$ ; 
6649 A 88 00 a3 BISB2 #10, (SPOS)CPTRT : 
9 11 OOOA BRB 34$ : 
6649 0A 90 00 A9 33$:  MOVB #10 (SPos) CPTRT : 
664A 80 8F 90 002AD MOV #-128, (SPOS) CPTRAJ : 
6649 4 BA 00 B2 34$ BICB2 #4 Fede PTRT] : 2373 
4 11 00286 BRB 38$ + 2368 
57 FF AO 9E 00 B8 35$ MOVAB =1(RO), R7 : 2378 
57 18 AE ci O2BC MULL 24 (SP) R? : 
51 33 AB O3C 99 CO MOVZWL 51(R115, R1 : 
5B 14 AE 1 C1 0024 ADDL3 #1, 20(SP), RB : 
51 8 CO 002C9 ADDL RB. R1 : 
51 0¢ C6 002CC DIVL2 #2. RI F 
51 FF A14 3 O2CF MOVAB =1(R1)CR7) SINDEX : 
614A 95 00204 TSTB (SINDEX) CPTRA : 2380 
06 18 00207 BGEQ  36$ : 
6149 OA 8 00 D9 BISB2 #10, (SINDEX)CPTRTI ; 
09 11 00200 BRB 37$ ; 
6149 0A 90 00 DF 36$:  MOVB #10, (SINDEX)CPTRTI ; 
614A 80 BF 90 002E3 MOVB 4-128 (SINDEX) CPTRAJ : 
6149 04 8A 00268 37$: ~ BICB (SINDEX) PTRT] > 2381 
56 18 AE C0 9 EC 8$: ADDL 24sP SPOS ; 3385 
9% 54 04 AE pg 0 ig 39$:  AOBLEQ a SP), 1, 31$ : 2363 
50 10 AE QOOOOOAE 8F C1 O02F ADDL3 #174, PBCB, RO > 2387 
1¢ AE 60 1 0 FC 6 CMP t #16, (RO), RIGHT_COL : 
50 10 ar QOOOOOAE BF C1 ADDL3 PBCB, & : 2389 
4 o& AE BO Sosis 40s: cae Uta" 2396 
5 5 5 19 BLBC 42$ : ; 97 
1 20 AB § 1 MOVZ2WL 32(R11), R : 2400 
1 AE § SUBL2  24(SP), ae ; 
56 FFOOA 4 MOVAB -1(R1) 0s ; 
664A ? 8 STB ($p0s)EPiRA > 2401 
6649 5 : B1SB2 3, (SPOS) CPTRT) : 
gen o oF $9 eo a ES {2b geos)CPtRAI 
24 8? AE E C 42$ BLBC =. 36( SPS rit : 2407 
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SMGSDISPLAY_OUT snese IS seu aY OUTPUT = Output Virtual Displays 16-Se 4 AX-11 Bliss-32 V4.0-7 Page 72 
amgee MGSSDRAW BORDER = Move border characters tato Joesepet9Re $4:0950 SMGRTL SReISMED SOUT 64251 9° 195 
56 18 AE CO QO4E] 638: — ADDL2—24(SP), SPOS + 2590 

D6 OOGF INCL) f : $591 

0 De 004F INCL WLN : 589 

B 11 0049 BRB. «60S : 537 

50 01 DO OO4EB 64s: HOVL AI, RO : 560 

04 OOGFE RET : 560 


; Routine Size: 1279 bytes, Routine Base: _SMGSCODE + 0652 


3; 2545 2604 1 !<BLF/PAGE> 


N 14 
r yal bt splays 16-Se =138¢ 90:32:00 AX-11 Oh legeze V4.0 


LAY_OUTPUT = 0 p - 
ndow with virt 14-Sep-19 9:46 SMGRTL.SRCJSMGDISOUT 


utpu 
C_WINDOW.BUFFER © 
ILL 


SMGSDISPLAY_OUT SMGS$ 
"O73 Ss 


a * J 


74 Page 73 
"89251 29° (20) 


te 


D 
1 MGS$ 


t Virt 
Fill w 
WINDOW_BUFFER = Fill window with virtual displays’ 
SSFILL 


$ 
] 
: 2547 605 1 XSBTTL 'SMGSSFIL 
: 2548 606] GLOBAL ROUTINE SMG “WINDOW BUFFER ( 
3 49 607 1 PP : REF BLOCK C,BYTEJ 
: ey $09 144 oe 
; 238 616 FUNCTIONAL DESCRIPTION: 
: 2554 ol¢ i This procedure rebuilds the portions of the window buffer that 
3; 2555 Sis 1 3 need to be changed because some virtual display has changed. 
> 2556 614 1! oy hg hog takes place from the ip pasting packet down the 
; eee oi? : chain to the most-recently pasted pasting packet. 
; $299 ei? { CALLING SEQUENCE: 
; 361 619 1 ret_status.wic.v = SMGSSFILL_WINDOW_BUFFER ( PP.rab.r) 
: 526g 3631 1 i FORMAL PARAMETERS: 
noe 
> 2566 2624 1! PP.rab.r Address of pasting packet which 
>; 2567 2625 1! determines the first display to be 
: 5268 $e $ } repainted, 
: 2570 e6 8 1 | IMPLICIT INPUTS: 
3; 2571 629 1! 
Ao Pied 8 8 eae 
; sari 2632 1 | IMPLICIT OUTPUTS: 
3: 2575 2633 1! 
PBB By elem 
4 2978 3636 | COMPLETION STATUS: 
: see0 cose ! SS$_NORMAL Normal successful completion 
; 258¢ $80 1 | SIDE EFFECTS: 
: 258 641 1! 
3 S2ee 7) 1! NONE 
: Sees rae Bae 
ep Mee a 
> 2589 2647 STATUS, ' Status of subr. calls 
3; 2590 o68 PBCB : REF BLOCK (,BYTEI, ' Address of pasteboard control 
: 391 669 ! block 
: 338 O32) WCB : REF BLOCK C,BYTE), ! Addr of current WCB 
: 2595 $38 CURR_PP : REF BLOCK C,BYTE); ! Addr of 2 longwords that form 
3 239 654 ! queue header in PP currently 
: 44 tH ' under inspection. 
: 2599 639 PaCB = .PP [PP A_PBCB ADDR]; 
3; 2600 $38 wCB = .PBCB (PBTB_A_wCBI; 
: $803 $60 5 1 
: rai 661 i Change packet address to address of queue header. 


———_——_——— 
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SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 1b-Se -1984 00:37:40 AX-11 Bliss=-32 V4.0-74 P 74) 
wid SMGSSFILL_WINDOW_BUFFER = Fill window with virt 14-Sep-19 4 90:35:45 SMGRTL.SRCISMGDISOUT .B 231 *9° (20) | 
> 2604 66 \- 
i 2605 668 CURR_PP = .PP + PP_PBCB_QUEUE_OFFSET; ! Start with specified packet | 
: 2607 665 2 !+ 
; 2608 66 ! Loop for all pasting packets starting with this one to the lLast-pasted 
; 2609 66 ' one... 
; 2610 O98 l= 
; 11 6 ; WHILE .CURR_PP NEQ PBCB CPBCB_A_PP_NEXT] 
; 618 1 se ! For all displays that need to be rewritten | 
: 2615 58 PP_BASE : REF BLOCK C arty ! Base address of the PP 
> 2616 674 DCB : REF BLOCK C,BYTEJ; ! Current virtual display that 
: soll of? ! needs to be repainted. 
: $615 367? PP_BASE = .CUR? PP - PP_PBCB_QUEUE_OFFSET; | 
3 sose 678 ; ! Since the queue headers for this part 
3 $e 1 2679 ! of the chain are not at relative 0 in 
; 2622 2680 3 ! the past ing packet. ; 
: $0s7 yet H DCB = .PP_BASE CPP_A_DCB_ADDRIJ; ! DCB addr of this pairing 
; 5058 Ast 4 IF NOT (STATUS = SMGSSMOVE_TEXT_TO_WINDOW BUF (.PP_BASE)) 
+ 2626 soRe 3 
3; 2627 685 3 RETURN (.STATUS); 
3; 2628 2686 3 
; 3094 2687 3 14 
; 2630 2688 3 ! If bordered, move the border characters into the text buffer 
3; 2631 2689 ' and set the bit in the attribute bytes to indicate a border 
; 2632 2690 3 ! element. 
; 2635 2691 3 = 
; 2634 2692 3 if .DCB CDCB_V_BORDERED] 
: 2635 269 N 
: 2636 2694 & IF NOT (STATUS = SMGSS$DRAW_BORDER ( .DCB, .PP_BASE, .WCB)) 
3 std 2695 ; N 
; 2638 $098 RETURN (.STATUS); 
; 2639 697 3 | 
; 2640 2698 ; '+ 
: 2641 2699 ! Update changed area fields in the PBCB based on Latest 
; 50%§ $700 ; ' contribution. 
3: 264 701 le 
> 2644 370¢ 3 if .PP_BASE CPP_W_ROWS_TO_MOVE] NEQ 0 
3 set? $f 3 THEN 
; 2646 2704 4 BEGIN 
; secs $706 4 IF .PP_BASE CPP_W_FIRST_WCB_ROW] LSS .PBCB CPBCB_W_FIRST_CHANGED_ROW] | 
: 649 3707 4 PBCB CPBCB_W_FIRST_CHANGED_ROW] = .PP_BASE CPP_W_FIRST_WCB_ROW]; | 
: 2651 3709 4 IF .PP_BASE CPP_W_LAST_WCB_ROW] GTR .PBCB CPBCB_W_LAST_CHANGED_ROW] | 
: 8 at 4 PBCB CPBCB_W_LAST_CHANGED_ROW] = .PP_BASE CPP_W_LAST_WCB_ROW); | 
; 332 ae : IF PP BASE CPP_W_FIRST_WCB_COL] LSS .PBCB CPBCB_W_FIRST_CHANGED_COL] | 
: 3657 oi? : PBCB CPBCB_W_FIRST_CHANGED_COL] = .PP_BASE CPP_W_FIRST_WCB_COLJ; 
: 2659 19 4 IF .PP_BASE CPP_W_LAST_WCB_COL] GTR .PBCB CPBCB_W_LAST_CHANGED_COL] 
; 2660 2718 4 THEN 


SMGSDISPLAY_OUT SM 
core % M 


AAAAGAAAAO 


SANS NSO OO 


NOUS WN—OOONO 


51 


51 


51 


51 
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GSDISPLAY_OUTPUT - Output Virtual Displays 1b-Se -1984 00:37:40 AX-11 Bliss-32 V4.0-74 Pp 75 
SMCSSFILL WINDOU-BUFFER e FILL tindoy atth sir 1engene1 one esborcy | PeMeR Osh eS saa VeoOT bSo-1 29° 063 
719 4 PaCB CPBCB_W_LAST_CHANGED_COL] = .PP_BASE CPP_W_LAST_WCB_COLJ; 
721 END; 
458 
7 + 
724 ! Walk this chain backwards, from the packet we started with 
725 ' back to the hoad of the chain =- since the most recently 
f 8 pasted displays are at the head of the chain. 
728 CURR_PP = .PP_BASE [PP_A_PREV_PBCBI; 
tf END; ! For all displays that need to be rewritten 
731 
7 ¢ RETURN ( SMGSSMIN_UPD ( .PBCB )); ! Cause window buffer to be 
sie ' output 
2735 «(1 END; ! End of routine SMGS$FILL_WINDOW_BUFFER 
007¢ 00000 .ENTRY SMGSSFILL_WINDOW_BUFFER, Save R2,R3,R4,R5,- ; 2606 
52 04 AC DO 00002 MOVL PP, R2 > 2657 
54 14 A2 DO 00006 MOVL  20(R2), PBCB : 
36 08 Ad DO OOO0A MOVL 8 (PBCBS, wC > 2658 
5 08 Ag 9E 0000 MOVAB 8&(R2), CURR PP > 2663 
54 53 D1 00012 1$ CMPL CURR_PP, PBCB + 2669 
7B 13 0001 BEQL «6s 7$ ; 
52 F8 AS 9E 00017 MOVAB <-8(R3), PP_BASE : 2677 
55 10 Ag DO 00018 MOVL 16(PP_BASEY, DCB > 2681 
52 DD OO01F PUSHL PP_B > 2683 
0000v CF 01 FB 99021 CALLS #17 SMGSS$MOVE_TEXT_TO_WINDOW_BUF : 
72 50 £9 00026 BLBC = STAT : 
OE 2F = AS-s«E9 00029 BLBC ©-_:«&7(pcBS,, 28 + 2692 
0044 8F B&B 999 D PUSHR #*M<R2 > 2694 
55 DD 00031 PUSHL bce ; 
FAC9 CF 03 FB 00033 CALLS #3, SMGS$SDRAW_BORDER : 
60 0 €9 00038 BLBC TAT : 
1c} =6A2) «BS 00038 28 TSTW  28(PP_BASE) > 2702 
4C 13 OO03E BEQL : 
51 00A8B C4 32 00040 CVTWL 168(PBCB), R1 : 2705 
2F A 10 90 FD 90045 CMP2V #0, #16, 47(PP_BASE), R1 ; 
6 048 BGEQ F 
OOA8 C4 2F A 89 6 04 MOVW 47(PP_BASE), 168(PBCB) : 2707 
51 OOAA C4 053 3$ CVTWL  170(PBCB), R1 : 2709 
312 10 60 FD 6 09 CMPZV #0, #16, 49(PP_BASE), R1 ; 
$ 0 : BLEQ ; 
OOAA C4 31 OA 80 004 MOVW  49(PP BASE), 170(PBCB) ; a7 
51 OOAC C4 066 4$ CVTWL 39 -172(P.CB) : 2713 
33.2 10 0 FD 0068 CMPZV #0, #16, 51(PP_BASE), R1 ; 
18 00 BGEQ 38 ; 
OOAC C4 33°=«OA 89 007 MOVW 1(PP_BASE), 172(PBCB) : 3715 
51 OOAE ¢ 6 79 5$ CVTWL  174(PBCB), R1 > avi? 
35 A2 10 60 FD O7E CMP7V #0, #16, 53(PP_BASE), R1 ; 
6 0084 BLEQ 6$ ; 
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-07 SMGSSFILL_WINDOW_BUFFER = Fill window with virt 14-Sep-1984 09:4 SMGRTL.SRCISMGDISOUT.B32;1 (20) 
OOAE g b A2 BO 00086 MOVW 53(PP_BASE), 174(PBCB) : 2719 
3 C A2 D 8 6$: MOVL 12(PP_BASE), CURR_PP 3; 2728 
80 1 09 BRB 1$ i; 2669 
54 DD 00092 7$: PUSHL  PBCB 3 2732 
000000006 900 01 FB 00094 CALLS #1, SMGSS$MIN_UPD 3 

04 00098 8$ RET 3 2735 

; Routine Size: 156 bytes, Routine Base: _SMGSCODE + 0 


; 2678 2736 1 !<BLF/PAGE> 
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SMGSSMOVE _TEXT_TO_WINDOW_BUF = Move text from d 14-Sep-1984 15:09:46 SMGRTL.SRCJSMGDISOUT. : 2;1 (21) 


680 7 ZSBTTL "SMGSSMOVE TEXT TO_WINDOW_BUF - Move text from display buf. to window buf.’ 

681 GLOBAL ROUTINE SMGSSMOVE_TEXT_TO_ =¥iNooy iW BUF ( 
68 : REF mT =DECL 
68 

684 le 

oR? | COR TEE, DESCRIPTION: 

68 

688 .0CB Core. A gfeht pul into the wingoy text buffer 

689 array 9 bytes -DCB C DCB_A_ATTR_BUF J describe the 

690 rendition this Se must assume and is moved into the 

691 o9sor tated vine dow attribute buffer. 


Simi torte f the alternate character set buffer a 


-DCB CDOCB_A_CHAR_SET_BUF] exists, it must be caoeed into the 
O38 window alfernate character set buffer. 
696 i CALLING SEQUENCE: 
697 


ret_status.wic.v = SMGSSMOVE_TEXT_TO_WINDOW_BUF ( PP.rab.r) 
i FORMAL PARAMETERS: 
PP.rab.r Address of pasting packet. 


SPRAANADANAAREEEEEREREO OD 


o 

~o 
SNS 
=O ODOM WN  OCONOUE WN O 


IMPLICIT INPUTS: 


SAPS 
o 


MOPOPOPONOPOPOPOPOPonoTnofnunonys 


DCB : REF BLOCK C,BYTE), ' Addr of virtual display 
' control block. 
PBCB : REF BLOCK C,BYTE), A pasteboard control 


wCB REF BLOCK C BYTE) i Addr of window control block 
IN_ LINE _CHAR  : REF VECTOR C,BYTE), ' 


OUT_LINE_CHAR : REF VECTOR C,BYTEJ, 


a 
°o 
~ 


' Addr. of Line char. 
' vector o 

' Addr. of Line char. 
' vector off WCB 


PROPIPOPOPOPOMONPOMONEPONONONONOIY 8 0 tt a 


Be Se Se Se Be Be Se Se Se Fe Se Ge Be Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge SH Se Se Ge Ge Ge Ge Ge Fe Ge SHS SH Se SE SHSE SE Se Se Se Se Se Se Se Se Ge Sees se ssesses 


7 ; 

7 

7 

7 76 NONE 
707 764 

708 765 IMPLICIT OUTPUTS: 
709 be 

710 767 NONE 
711 2768 

re 769 COMPLETION STATUS: 
71 770 

ay or SS$_NORMAL Normal successful completion 
716 ng ' SIDE EFFECTS: 
717 774 

718 775 NONE 
719 776 

720 777 

721 778 BEGIN 

7 g 779 

7 ? BUILTIN 
724 SKPC; 
725 § 

7 $ LOCAL 

7 

728 

729 

7 

4 1 

133 

7 

735 

7 


Rononononononononononononony 
—O0Onour 


This routine moves text from the buffer located at 
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SAGER ISPLAY OUT SMGSDISPLAY_OUTPUT = Output Virtual prepters a 4 9-1 388 9: 35:28 AX-11 Bliss-32 V4.0-74 Page % 
SM QSSMOVE_ TEXT "10 -WINDOW_BUF = Move text from d 14-Sep-1984 9: SMGRTL.SRCJSMGDISOUT.B32;1 (21) 

3; 2737 794 wCB_COLS, ' Extracted .wWCB FW CB_W_NO_COLS 

; 2738 795 DCB-COLS { pryrecteg -DCB LDCB"W"NO_COLS 

> 2739 136 FROM INDEX, i Pointer into DCB buffers” 

: 2740 79 x i Pointer into WCB buffers for normal mapping 

3 2741 798 srec O fNpDex, } perarer into WCB buffers for special Sepetng 

3 276 799 E BORDER : INITIAL (0); ! flag to indicate that t 

: 274 84 ' border elements need to be 

3: 2744 01 ' remapped because some Line 

: 2745 Boe ! changed from normal to DWDH or 

: bg 80 ! vice versa. 

3; 274 804 

3; 2748 BR? MACR 

3; 2749 4 $ SAP LINE_NORMAL = 

; 2750 Mm 280 CHSMOVE ( .PP CPP_W_MOVE LENGTH), ! Length 

> 2751 M 2808 DCB PoCB“A_TERT BUF + .FROM_INDEX, ! Source 

: 3¢ M 2809 " WCB-A_TEXT_BUF] + .TO_INDEX); | Destination 

; 275 810 i, 

3: 2754 11 

3: 2755 i] \¢ SMAP_LINE SPECIAL 

3 2756 M 281 CHSMOVE ( (. BP PP_W_MOVE LENGTHI~ -1)/2, ' j bongeh 

3; 2757 M 2814 .0CB DCB_ A. TEXT_B UF] + .FROM_INDEX Sou 

: 2758 M 2815 WCB WCB we TEXT -BUF} * SPEC. “T0 DINBEX) s 7 best inst ten 

: 2759 816 Se 

3; 2760 817 

; 2761 Mm 2818 SMAP_ATTR_NORMAL = 

3 r6¢ M 2819 CHSMOVE ( oe CPP_W_MOVE_LENGTH], ' Length 

3; 276 M 2820 .0cB Cote B-A_ ATTR _BUF] + .FROM_INDEX, ! Source 

3 2764 M 2821 .WCB wCB_ A, “ATTR “BUF + -TO_INDEX); ! Destination 

: 2765 8 ¢ i, 

3: 276 8 

3; 276 M 2824 SMAP_ATTR_SPECIAL = 

3; 2768 M 2825 CHSMOVE ( (. sce PP_W_MOVE heneree -1)/2, ! pengte 

: 2769 M 2826 DCB_A_ATTR_B + .FROM_INDEX, i Sou 

; 2770 M 2827 eee WCB ~A_ “ATTR BUF + .SPEC_TO_INDEX); ! best instion 

3; e771 828 i, 

3; 277 829 

3; 277 Mm 2830 SMAP_ALT_CHAR_NORMAL 

3: 2774 M 2831 TF .6¢B CBCB_A_ CHAR. SET_BUF] NEQ 0 

3; 2775 Ki o38 THEN 

3; 277 4 CHSMOVE ( .PP CPP_W_MOVE_LENGTH], ' Length 

; 277 fl 4 .bcB CotB- A_CHAR SET BUF] + ~FROM_INDEX, i Source 

3; 2778 (a 5 .WCB wCB_ A CHAR “SET ~ BUF + .TO_IRNDEX); i Dest. 

3 4 8 § i, 

3 rf 4 He SMAP_ALT_CHAR_ SPECIAL = 

: 278 M 2839 TF .6CB CBCB_A_CHAR_SET_BUF) NEQ 0 

: At i ary 

: 27 ff 1 CHSMOVE ( (. se PP_W_MOVE LENETHJe 1/2, ' Length | 

3 2785 M ; DCB_A_CHAR_SET_BUF FROM_INDEX i Source | 

: 786 M 284 UCB UCB A~ CHAR SET “BUF] + .SPECTTO_INDEX); | Dest. 

: i re: me 

3; 2789 i] ry! SCLEAR_TEXT_LINE = 

3; 2? s CHSFILL™( 2C° ° ' FILL char 

3: 2791 4 3 WCB CWCB_W_NO COLS) ig 

> 279 8 [WCB CWCBTA~TERT_BUF) + WLP); ip 


l 
of bytes 
estination 


Re Be Oe Oe Se Be Se Se Be Se Bee Ge Se SH Se Se BH Se Se Fe Se SHS Se Se Se Se SH Se SHS Se Se Se Se FH Se Se Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Seas 


DCB = .PP [PP_A_DCB_ADDR): 


PBCB = .PP (PP7A-PBCB ADDRI; 

CB = .PBC tB_A QcB): 

IN_LINE CHAR = .DCB f CB_A_LINE_CHAR); 
OUT_LINE CHAR= .WCB CWCB™A'L CHARI; 


Bigs 


COOONOUSWN—O 


Ne 


te 

! Before diverging qn two copying peths, check to see if we are going 
' to get involved with alternate character set buffers. If one exists 

' in the DCB but does not yet exist in the WCB, we have to allocate 
: one for the WCB and initialize it. 


I 
= = I 
WCB-COLS~= .WCB [WCB_W_NO_COL 
DCB-COLS = .DCB CDCB7W~NO~COL 


IF .0CB (OCB_A_CHAR_SET Bur ch 8 AND 


“WCB CWCB7A~ CHAR” SET~BUF 
THEN 
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ng33 SMCSSMOVE TEXT, TO.WINDOM BUF = Move cestifom d lorgenet98G $orborte Lament ttes spe Yea 0T7ks. 9 24) 
; 2794 
3 2795 NI SCLEAR_ATTR_LINE = 
: 27 M CHSFILL™( 0, ' FILL char 
> 279 si .WCB CWCB_W_NO COLS) i # of bytes 
: 098 1 : .WCB CWCBTATATTR_BUF1 + .WLP); i Destination 
; 2800 
; 2801 a SMAP_ALL_NORMAL = 
; 280 mM Q 
; 280 M SMAP_LINE_NORMAL; 
3 2804 “ SMAP~ATTR-NORMAL; 
> 2805 4 $MAP~ALT_CHAR_NORMAL ; 
; Hy M END; 
; 280 i, 
; 2808 
: 2809 a SCLEAR_ALT_CHAR_LINE = 
: 310 " IF~.0CB COCB_A_CHAR_SET_BUF] NEQ 0 
: Bie % CHSFILL ( 0, 
+ 281 M .WCB CWCB_W_NO_COLSJ, 
> 2814 .WCB CWCB-A~CHAR_SET_BUF] + .WLP); 
3; 2815 i, 
; 518 
: 281 4 SMAP_ALL_SPECIAL = 
3; 2818 s BEGIN 
: 2819 4 SMAP_LINE_SPECIAL; 
3 2820 M SMAP“ATTR-SPECIAL: 
: 2821 x $MAP~ALT_CHAR_SPECIAL; 
; 28 ; 8 END; 
; 28 ‘ 
B34 
> 2825 fa SCLEAR_ALL = 
3 558 x BEGIN 
: 28 4 SCLEAR_TEXT_LINE; 
3 2828 4 SCLEARATTR-LINE: 
3: 2829 8 SCLEAR-ALT_CHAR_LINE; 
: ; 8 RE_BORDER = 1; T Set flag to rebuild border 
; 28 q; 
3; 28 
$ j 
° | 


AEEReR reek 


tee ee ee 


else 
map normally 


DW or DWDH Not DW or DWDH If DW supported 
i.e., normal) then 


Blank entire WCB text Line 


£44 use special mapping 
$82 map normally 

3 

955 DW or DWDH DW or DWDH If DW supported 

B38 then 

95 Use special mapping 
95 else 


Map normally 


o 
S 
— 


WnNM—O Oe 


SOoS 


H 15 
SMGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:40 AX-11 Bliss-32 V4.0-74 P 0 Sm 
3m0F8 SHGSSMOVE. TEXT. TO. WINDOW BUF - Move text thon d 127828718 4 90:35:65 ANGRTL SReiSHaD I SOUT. B92:1 age ¥ 1=( 
; 1 30 BEGIN ! Alloc. and init. window alternate char. set buffer : 
3 § 4 STATUS; ! Status of LIBSGET_VM call : 
: 2855 aie 4 IF NOT (STATUS = LIBSGET_VM ( WCB pus at BUF SIZE], : 
: 28 § 91 4 WCB CWCB_A_CHAR_SET_BUFJ)) ; 
; 28 914 THEN s 
; S28 312 RETURN (.STATUS); : 
: 2860 319 CHSFILL ( 0, .WCB cucet BUFSIZE], .WCB CWCB_A_CHAR_SET_BUFJ); ; 
; Beg 319 END; ! Alloc. and init. window alternate char. set buffer : 
: 286 9 + ; 
3; 2864 921 At this point we need to decide whether we are dealing with either ; 
; 2865 9 ¢ @ virtua et epi ey or a window control block that includes either : 
3 ace 9 Double-Wide (DW) and/or Double-Wide/Double-High (DWDH) Lines. : 
; 286 924 We can tell whether either is non-standard by looking at the zeroth ; 
; 2868 925 byte of its Line characteristics vector. ; 
3; 2869 9 $ If we are dealing with either non-standard, we need to deal with them . 
; 2870 9 on a Line by Line basis. ; 
3 2871 928 For each Line to be mapped we implement the logic summarized in the . 
; ore i! following table: ; 
3 2874 33 DCB Line WCB Line Mapping ; 
3; 2875 9 § Char. Vect Char. Vector Action : 
3 76 887 wrwwrwrwerrwwwrwnr (~#7“_— = ee sse<cceee-llUlUlUlmlmlmCCU OO OOOO! ; 
; 935 Not DW or DWDH Not DW or DWOH Map normally ; 
; 336 (i.e., normal) (i.e., Normal) ; 
3 33 : 
7 a3 
: 940 (i.e., normal) n ; 
; Blank entire WCB text Line ; 
: 94 map normally é 


DEX = .PP FPP _u_FROK INDEX); 
X= .PP CPPTW7TO_INDEX); 


oO 
$ 
re! 
ow 


Not DW or DWDH DW or DWDH i? DW supported 
e 
| 


SAGSBISPLAY OUT 


S 


WN — SO OONOVES WN" OOONOUS WN O”0 


DODOODOOOODOOOODODODOODODOODODODO0O0000 
eee meant marinara 
“ 
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'¢ 
Move alternate character set buffer pieces, if necessary 


iF pce CDCB_A_CHAR_SET_BUF] NEQ 0 
! Map pe Eevee character set buffer 


BEGIN 
FROM INDEX = .PP (PP_W_FROM INDE XI; 
TO_INDEX = .PP CPP7W~TO_IRDEX); 


SMGSSMOVE_TEXT_TO_WINDOW_BUF ~ Move text from d 14-Sep-1 
965 IF .IN_LINE_CHAR EQL 0 AND ! DCB normal 
4 THER Et UNE.CHAR £8} EQL ! WCB normal 
298 BEGIN ! Both are normal -- no special action needed 
396 i Check to see if we can do it with a single CHSMOVE or whether 
48 we must do it a row at a time. 
378 if .PP CPP_V_CONTIG) 
974 THEN 
92? : BEGIN ! Can be done in single move 
3f$ 4 ' Move text 
978 4 CHSMOVE ( .PP CPP_L_MOVE SIZE], ! Length 
979 4 DCB DCB_A_TEXT_BOF + .FROM_ INDEX, ! source 
44 : -WCB CWCB_A_TEXT_BUF] + .TO_INDEX); ! dest. 
sans 4 ' Move aptr Tourge 
983 4 CHSMOVE ( .PP CPP_L_MOVE SIZE], ! Length 
084 4 -DCB FOCB_ALATTR BOE + .FROM_INDEX, ! source 
985 4 .WCB CWCBTA_ATTR_BUF] + .TO_INDEX); | dest. 
987 4 ! Move alternate character set buffer pieces, if necessary 
988 4 IF .DCB CDCB_A_CHAR_SET_BUF] NEQ 0 
989 4 THEN 
444 5 BEGIN ! Rap alternate character set 
991 5 CHSMOVE ( .PP CPP_L_MOVE SIZE ' Length 
2992 «5 .DCB FOCB_A_CRAR. SET BUF + .FROM_INDEX, ! Source 
993 5 -WCB CWCB7A-CHAR“SET-BUF] + .TO_INDEX); ! Dest. 
994 4 END; ! Map alternate character set 
164 ? END ! Can be done in single move 
399 ; ELSE 
998 
44 2 BEGIN !' Must be done row at a time 
et 2 ee R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE) 
003 5 BEGIN ! For all rows in this display 
004 SMAP_LINE_NORMAL; 
005 $MAP~ATTR-NORMAL; 
00 FROM_INDEX = .FROM_INDEX + .DCB_COLS; 
43 TO_IRDEX ee IRDEX + ,WCB FOL 5: 
09 4 ENB; ! For all rows in this display 
010 4 
4 
4 
4 
4 


—OOOWOunewtr— 


DROPS tt to te 


INCR R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE) 
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SMGSSMOVE_TEXT_TO_WINDOW.BUF - Move text from d 14-Sep-1984 


: 2965 EGIN H 
: $96 SHAPLALT_CHAR_NORMAL; ; 
3 5 FROM INDEX = .FROM_ INDEX + .DCB_COLS; : 
3 0 8 TO_INDEX = .TO_LINDEX + .WCB-COLS; ; 
3 >t4 8 END; : 
3 46 8 : ? END; ! Map alternate character set buffer : 
3 2974 8 1 END; ' Must be done row at a time 

3 af? 8 § END ! Both are normal -- no special action needed 

: 297 034 

; 2978 035 BEGIN ! One or the other contains special characteristics 

: 2979 0 § LOCAL 

3; 2980 0 DLN, ! Virtual display !ine number 

3; 2981 038 WLN, ' WCB Line number 

3: 298 039 WLP; ! Byte offset corresponding to WLN 

3; 298 040 

3; 2984 041 ‘+ 

3; 2985 Be8 ' Must deal with this megp ing on a row by row hasis and on 

3: 2986 04 ' each row inspect the Line characteristics vector eoary of 

: 2987 044 ' both the DCB Line characteristics vector and the WCB Line 

3; 2988 045 ' characteristics vector in order to determine how to map this 

; 2989 Bee ' particular Line. 

3; 2990 04 ! 

; bad 983 } Initialize the special index we will be using. 

: $398 050 SPEC_TO_INDEX = (.PP CPP_W_FIRST_WCB_ROW] -1) * 

3 2994 051 .WCB pecs NO_COLSJ + 

; 10 038 ((.PP CPP_Q_FIRST_WCB_COL] #2) / 2) -1; 

3; 2997 054 DLN = (.FROM_INDEX / .DCB_COLS) +1; 

3; 2998 055 WLN = .PP CPP_w FIRST_WCB ROW); 

; 4 O36 WLP = (.WLN -1) * .,WOB_COLS; 

; 001 058 INCR R FROM 1 TO .PP CPP_W_ROWS_TO_MOVE) 

3 008 060 4 BEGIN ' For each row 

3; 3004 061 4 IF .IN_LINE_CHAR -DLN) EQL 0 AND ! DCB normal 

: 3005 06g 4 -OUT_LINE_CHAR C.WLN) EQL 0 ! WCB normal 

3 B08 063 4 THEN 

3 064 BEGIN ! Normal Line 

; 008 5 SMAP_ALL_NORMAL ; 

: END T Normal Line 

3; 3010 4 

: 3011 8 5 BEGIN ! Special Line 

g at 9 IF .IN_LINE_CHAR -DLN) EQL 8 AND ' DCB normal 

3 Biz A! -OUT_LINE_CHAR C.WLN) NEQ ! WCB special 

3; 3015 72 6 BEGIN ' WCB has_ special, OCB normal 

3 pig 735 «6 IF .PBCB CPBCB_V_WIDE) ! If DW supported 

: 301 74 § THEN 

3 Ht 4 75 peste ! Spec tat mapping 

: 1 6 7 CLEAR_ALL; 

; 30 aT $MAP_ACL_NORMAL ; 

3 1 078 7 END ~ ! Special mapping 
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SMGSSMOVE_TEXT_TO_WINDOW_BUF = Move text {hee d 1o=808- 1382 90: 3oid YOMGRTL SRe SMGDISOUT 
79 ELSE 
GIN ! Normal mapping 
SMAP_ALL_NORMAL; 
0 END;~ ! Normal mapping 
END ! WCB has special, DCB normal 
ELSE 
BEGIN 
IF .IN_LINE_CHAR BLN NEQ 0 AND ! DCB special 
OUTLINE CHAR WEN] EQL i WCB normal 
BEGIN ! DCB special WCB normal 
IF PBCB CPBCB_V_WIDES ! If DW supported 


BEGIN ! Map special 
SCLEAR_ALL 


$MAP_ACL_SPECIAL; 
END ! Map special 


BEGIN ' Map normal 
SMAP_ALL_NORMAL ; 
D; ! Hee normal 
seen ' DCB special, WCB normal 


BEGIN _! Both have special 
a ai CPBCB_V_WIDE)] ! If DW supported 


jejelelelelelelelelololelololololo) 
OWOOO000000MMM DCD CD00 


BEGIN ' Map special 
SMAP_ALL_SPECIAL; 
! Map special 


BEGIN ' Map normal 
SMAP_ALL_NORMAL ; 

3 ' Map normal 

END; ! Both have special 


END; 
- END; ! Special Line 
Advance indices for next row 


FROM_ INDEX = .FROM_ INDEX + .DCB_COLS; 

TO_ INDEX =. + .WCB_COLS; 

SPEC_TO_INDEX = .SPEC_TO_INDEX + .WCB_COLS; 

DLN = .BLN + 1; 

WLN = .WLN + 1; 

WLP = .WLP + .WCB_COLS; 

END; ! For each row 

END; ! One or the other contains special characteristics 

t+ 
! If this device supports DW or DWDH then we must update WCB's Line 
! characteristics vector based on the rows we just modified. 
! ALL further actions are necessary only if DW or DWDH is supported by 
this device. 


PIP IM IPM MPINININPI HE BB BBE EEE ENA NID NI 09 09 SI INI II 08 SID 09 0 SII POA AANA A NINO 


OMEN OOD NOAU EWN $9 OONA UE WIN | O ODNA UE WN 0 ODNOAOUE WN (OOD ONOULS WN Oo 


a ak a et a a 4 3 2 2 


AANA AAA AA MAA MAA MMA A AAA AA AA AMAA AA MAA AAA MAMA 
WANA HIIIIIIIRININNINININ 4 SS |  @  § SOOO OODOO0O 


IF .PBCB CPBCB_V_WIDEJ 
THEN 
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079 BEGIN _! Special supported 

: 9 ‘ eet CPP U ROWS. 10 MOVES NEQ 0 ! Something got mapped 

08 9 BEGIN 

08 40 IF .PP CPP_W_ROW] GTR 0 

084 41 THEN 

085 tg ! Start movement from ist dis lay row 

bBo 4 CHSMOVE ( .PP CPP_W ate TO_MOVEJ, 

087 44 IN_LINE-CRAR CT), 

4 $e oe OUT_LINE_CHAR C .PP CPP_W_ROWJ]) 

090 23 ' Start movement from nth display row 

091 4& CHSMOVE ( .PP CPP_W ROWS _TO_M Ved, 

09 49 IN_LINE-CRAR CI0CB COCB_W_NO ROWS] - 

4 50 «PP CPP_W_ROWS_TO_MOVE) +1), 

094 51 OUT_LINE_CHAR (1)); 

3095 26 

30 5 END; 

098 38 r 

0 56 ' If we are Soot ing with a bordered display and we have 

3100 57 ' made the transition from a normal Line to a DHDW Line, or 

' vice versa, it w a necessary to remap the border elements. 
38 ' yi i ill b he bord l 
60 IF .DCB CDOCB_V_BORDERED] AND 
61 -RE_BORDER EQ. 1 
o¢ THEN 
6 BEGIN 
LOCAL 


STATUS ; ! Status of subroutine call 
IF NOT (STATUS = SMG$SDRAW_BORDER ( .DCB, .PP, .WCB)) 


TH 
RETURN (.STATUS); 
ND; 


WANA. AAL AAA 


+ 
! Check through current WCB Line characteristics vector. If 

' any of the elements is non-zero, set OUT_LINE_CHAR (0) to the 
Ist encountered non-zero value. 


if PP CPP_W_ROWS_TO_MOVE) GTR 0 
BEGIN ! Some mapping took place 


LOCAL 
BYTES_REMAINING 
FOUND-BYTE : REF VECTOR C,BYTE); ! 


OUT_LINE_CHAR (0) = 0; ' Assume none will be found 
SKPC (XREF(O), WCB CWCB_W_NO_ROWS), OUT_LINE_CHAR (OJ; 
BYTES_REMAINING, FOOND-BYTE); 


IF .BYTES_REMAINING NEQ 0 ! If non-zero found 
OUT _LINE CHAR CO] = .FOUND BYTE (0); 


3 Some mapping took place 
! Special supported 


— ed a tw ws — 2 2 ss 


WWW UARINMININIVUNNN S 3 a OSS rol~l~l~)—) 


AIA AIAI ANIA AA AIANINI AIAN AANA WWW 


Output from SKPC 
Output from SKPC 


END; 


ee ee el a ee a ee a a a a a a ee a ee ae a ce ce ee ec a ce ee ce a ee ee a ee el 
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1-072 SMOSSMOVE TERT 10. WINDOM BUF = Bogs pest team d Toesepelond Saiboscs — Kemente Saeismepy sour 6$2.1 oe 38 i= 
: 3136 193 
: 3137 194 RETURN (SS$_NORMAL); 
: 3138 195 END; ! End of routine SMGS$MOVE_TEXT_TO_WINDOW_BUF 
| 
OFFC 00000 .ENTRY SMGS$MOVE_TEXT_TO_WINDOW_BUF, Save R2,R3,- ; 2738 
R4,R5,R6,R7,RBRITRIO,RIT : 
SE 30 C2 0000 SUBL2 #48, SP F 
F D4 00 CLRL RE BORDER : 2778 
50 04 AC 10 ¢1 0000 ADDL3 #18, PP, RO : 2891 
57 60 DO 0000C MOVL. (ROS, DCB ; 
50 04 AC 14 C1 0000F ADDL3 #20, PP, RO + 2892 
60 DD 00014 PUSH (ROS : 
50 6E 08 C1 00016 ADDL3 #8, PBCB, RO + 2893 
5B 60 DO O001A MOVL (RO), WCB : 
4C A? DD 00010 PUSHL  76(DC¢B) + 2894 
2¢ AB DD 000 9 PUSHL  44(WCB) > 2895 
7E 06 AB C 000 MOVZWL 6(WCB), WCB_COLS + 2896 
7E 06 A? 3¢ 00 7 MOVZ2WL 6(DCB), DCB-COLS + 2897 
18 A? 9F 00028 PUSHAB 24(DCBS + 2905 
48 AE D4 0002E CLRL 2(SP) : 
00 BE D3 00031 TSTL  a0(SP) : 
21 13 000 BEQL 3s : 
48 AE v6 00036 INCL 2(SP) : 
10 AB 05 00039 TSTL 16(WCB) + 2906 
19 12 0003C¢ BNEQ  2$ F 
10 AB 9F O003E PUSHAB 16(WCB) + 2913 
28 AB OF 00041 PUSHAB 40(WCB) : 291 
000000006 00 0 FB 00044 CALLS #2, LIBSGET_VM : 291 
01 5 00048 BLBS § STATUS, 1$ ; 
4 0004E RET : 
28 AB 00 6E = 00 C O04 1$: MOVCS #0, (SP), #0, 40(WCB), a16(WCB) : 2917 
50 04 ac 1 4 0057 2$: ADDL3 #30, PP, RO : 2963 
56 60 3c 0005¢ MOVZWL (R05, FROM_ INDEX ; 
50 04 AC 20 C1 0005F ADDL3. #32, PP, RO > 2964 
5A 60 3C 00064 MOVZwL (ROS, TO_INDEX ; 
30 AE 10 A? 9E 00067 MOVAB 16(D¢B), ~48(SP) + 2979 
28 AE 08 AB OE 006¢ MOVAB 8(WCB) 40(SP) + 2980 
2c oA 14 A? 9E 00077 MOVAB QcocBs, 4(SP) > 2984 
24 «AE o¢ AB 3 0076 MOVAB (WCB). 36(SP) ; 398 
BE 78 TSTB QIN_LINE_CHAR > 296 
1 007 BNEQ $ : 
0c BE 9 TSTB © OUT_LINE_CHAR > 2966 
} 6 3$: BEQL 4$ : 
0089 31 BRW 13$ ; 
7E 04 ac A C1 00088 4s: ADDL3 #42, PP, (SP) : 2973 
3¢ 9 1 £1 000 BBC #1, a(SP)+, 5$ ; 
38 BE DO 00091 MOVL a40(SP), Rg > 2980 
59 E D 93 MOVL. a48(SP). R : 
04 AC B ¢ ADDL3 #43, PP. =-(SP) : 
684A 694 E 9£ MOVCS a(SP)+, (RO)CFROM_INDEX], (R8)CTO_INDEX] 
2 34 BE D AG MOVL  a@36(SP5, RS : 2985 
C BE D A8 MOVL  @44(SP). R : 
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SMGSDISPLAY_OUT SMGSDISPLAY OUTPUT = Output Virtual Displays 1e-Se 
td: SMGSSMOVE TEXT. TO. WINDOW BUF = Move text fron d 14-Se 
48 AE 3C 00186 
50 0 AC 23 4 18h 
4 AE 6 F 18F 
44 RE 133 
O1A 1 001 3 
50 D4 00199 14$: 
51 10 ry 198 
694 19F 
gE 1 1A2 
D6 001A4 
51 OC AE DO 001A6 
6841 9 ies 
9 12 QO1AD 
0155 31 BPA 15$: 
51 14 AE OOOOOOFA 8F C1 001B2 16$: 
40 AE 61 47 00188 
6D 50 €9 001BF 
50 oc ar DO Bote 
6840 95 001C6 
64 13 001C9 
EO 40 BE €E9 OO1CB 
38 8=AE 28 =«C«BBE 1C «AE C1 OOI1CF 
3C—COsAE 20 6E 00 2C 00106 
38 3=6BE 001DC 
40 AE 24 =«CO«BBE 1C =6AE C1 001DE 
3c OA 00 6E 00 2C OO1E5 
40 BE OO1Ee 
40 AE D4 OO1ED 
00 BE D5 001FO 
12 13 OO1F3 
40 AE D6 001F5 
38 =AE 10 AB 1C =6AE C1 O01F8 
3s AE 00 6E 00 2C OOIFF 
38 =a 00205 
18 AE 01 DO 00207 17%: 
¢8 BE DD 00208 
4 BE DD 0020E 
9E4A 9E46 $C 6s BE.-—s 2h «00211 
$e BE DD 00218 
0 BE OD 0021B 
SEGA 9E46 3C 6 BE:)=—-2h8 ~O02IE 
03 40 A 8 68 5 
010 1 00229 
OOF 1 0022C 188: 
50 10 A 0 8 F 19$: 
6940 9 3 
88 $4 00 
0088 31 00 
50 oc af bo 0238 20$: 
684 023F 
7F ls 8 42 
78 40 BE E 44 
40 ar 28 «OCB 1c OA 4 0248 
3C Os AE 2 6E 0 C 0024F 
40 BE 0255 


9 
9 


2 99:3 
MOVZWL 
ADDL3 


7: 


64(SP), 22$ 
LP, a46(SP), 64(SP) 
#0, (SP), #32, 60(SP), a64(SP) 


5092 


40 AX-11 Bliss-32 V4.0-74 Page 87 
46 SMGRTL.SRCJSMGDISOUT.@32;1 (21) 
(RO), 72(SP) : 
#34, PP. R : 3064 
R05, 52(SP) : 
e6s : 
tN LINE_CHAR, R1 + 3061 
(OCW) ERT : 
16 s 
RO 3 
OUT LINE CHAR, R1 + 3062 
(WLR CRIT $ 
163 : 
23$ 3 
#250, PBCB, R1 : 3073 
(R1). 64(SP) : 
RO, 19$ re 
OUT_LINE_CHAR, RO + 3070 
(WLA) CROJ : 
19$ : 
a64(SP), 15$ : 3073 
LP, a4O(SP), 56(SP) : 3075 
#0, (SP), #32, 60(SP), a56(SP) : 
WLP, @36(SP), 64(SP) ; 
#0, (SP), #0, 60(SP), a64(SP) : 
64 (SP) ; 
a0 (SP) ; 
17$ : 
64 (SP) ; 
WLP, 16(R11), S6(SP) ; 
#0, (SP), #0, 60(SP), a56(SP) ; 
#1, RE_BORDER : 
a46(SPy : 3076 
952(SP) ; 
@60(SP), a(SP)+CFROM_INDEX], @(SP)+- : 
CTO_ INDEX : 
a36TSP) $ 
a48(SP) ; 
a60(SP), a(SP)+CFROM_INDEX], a@(SP)+- F 
CTO_INDEX) : 
$4 (SP), 18$ : 

5$ 3 
24$ ; 
IN_LINE CHAR, RO : 3086 
aa $ 

$ 3 
OUT LINE CHAR, RO + 3087 
yal ROJ ; 
oe 3 


Page 88 
-11 Bliss-32 V4.0-74 (21) 
Tringuteut Virtual Displays if Sep=1984 2 93:59:48 SMGRTL. SREISMGDI SOUT .B32; 1 
TPUT = Ou si from i ; 
MGSDISPLAY_OUT SMCS ISPLAY OUT TO_WINDOW_BUF = Move text ADDLS WLP, O36(SP), G4(SP) ; 
at SMGS$$ BE iC Ar + ort MOVE , #0, 60(SP), : 
24 : ; 
- 06 oe 40 Be 0564 CLRL 64 ( SP) é 
3C AE 40 AE D4 96 TSTL ays) : 
o WREY Bey ; 
490 AE 06 OOC6E MOVES #0, (SP). ROL GOCSP), a5S6(S—P) ; 
5 ge. = 6 ie sen tan. . : 3093 
ae 6e 38 «BE 0276 MOVL #1, RE_BORDER ; 30 
3C AE 01 pO 00280 218: MOVZWL @52e(SPY, 56(SP) ; 
34 BE 3¢ bs 86 DECL §(SB) oo) 
e PBB MEE Rete, ean, <n : 
28 GE s0 BE bp 0099 ROVCS GASP), @(SP)*CFROM HOEK, 3 a(sP)+ 
_ 43 RE 38 00999 ADDL SPEC TO_INDEX, @36(SP), - - 
3 26 BE 30 BE BD O0SAS move sctsh), @(SP)+CFROM_INDEX], a(SP)+ ; 
mn 0 AE 5B O03AB BLBC, 64( SP), 358 11), =(SP) : 
9E vese 10 AE £9 009A ADDL3 SPEC TO_INDEX, 16(R11), | 
7e at ho fe BE OD 80 88 ROVE ecCP), @(SP)+CFROM_INDEX], @(SP)+ : 3103 
8 00988 5$ , 
9E 9E46 “0 GE fT dooet :  BLBC — SACSP), 238 _— 
40 BE E9 Bete 228: MOVZWL @52(SP), 64(SP) : 
a 34 BE $¢ 00 3 DECL, G4(SP) 
40 0. OPT ieee DIVL SP ctTO. INDEX, @40(SP), =(SP) 
40 AE 0 AE C1 002d3 PUSHL  a52(SP)~ J, (SP)+ : 
FROM, INDEX } 
5 ey 45 Re OEE Date bare : 
oe 9646 30 AE Ch O0SED PUSH, a48 (SP) DEX], a(SP)+ 
7E m4 $0 BE OD 00368 OVC 72(SP), @(SP)+CFROM_IN : 
48 AE 28 TSTL © a0(SP F 
9€ 9E46 00 GE Be Bock) ADCS SPEC. TO_INDEX, 16(R11), ~(SP) 
AE C1 002F6 HL @4(SP) ~ NDEX], a(SP)+ * 3103 
«me OR RRR BRN BR sescrnon 8 
g BE 0D o080k * BUSH B28 Stet a(SP)+CFROM_INDEX2. a(S 
¢ BE 28 00300 moves ETO: INDEXd ; 
9E4A 9E46 “4 PUSHL — @36TSP) (sp) 0~ 
$3 BE bb 00317 ROVCS —360($P), a(SP)*CFROM_INDEXI, @ 
se BE DB OOsTA move PTO: INDEX} : 
9E4A 9E46 aa IsTL —9(SP) : 
00 BEQL rm ; 
0 BE if $0 ae Ne a56(sP> @(SP+CFROM_INDEX], a16(WCB) re 
eos SORE GHEE 18 a nalipiaon RY 
ett 04 AE C8 0331 258: ADDL wCB-COLS, TO] Te INDEX : 
26 0 AE ¢ 00333 ADDL WCB"COLS, SPEC_TO_ 
OB AE CO 00 
20 AE 


FEGA ah af 
5 

50 

51 

5A 

6049 


59 
69 


50 


OC BE 


; Routine Size: 972 bytes, 


Pee PLAT out SMGSDISPLAY OUTPUT = Output Virtual Displays 
1-07 SMGSSMOVE_TEXT_TO_WINDOW_BUF = Move text from 


1¢ 
14 
04 


04 


10 


oc 
01 


F6BA 


04 


02 


oc 


Routine Base: 


; 3139 3196 1 !<BLF/PAGE> 


vw 
oO 


A FOOM [ON OWN DW MM NOM A NAA MO DOOM W™Mmas 


ror 
NO 


AM 


COSI OOO OOO IE EE 


COOOMN1OD -O-$"NOM Pu1oyKe PuUIirPOur —-UNI0 FP S| OS SW CO Or 
OOOOOWWWWr>r>>>r Fr OOOO® 


WAIN AAAIN AAA AWA ANAAAAAANA AANA AANA OO 


O9 CO FWWO "TOM NII S -2OSMNVNIOOW "NIG [UNO HSWOMO MOOI 
S FOOWWWM® FW ODO FON ODO WN —$ © OUP WN — OS OO Om 
CSOOCCCOOCOSCOCCOSCOCSOCOOCOCSCOOCOCOOOOCOOOOOOOOOOOoOO 


COOCCCOCOCOGCOOCGOGCOCCCOOOCOCOCOCOCOOOOOOOOOOOOOCOOOO 


374 AX=11 Bl iss-32 V4.0-74 
:09:4 SMGRTL.SRCJSMGDISOUT.B32;1 

DLN 

wee COLS, WLP 

7e(sP) #1, R, 14% 

#250, Pace. RB 

Re , 31$ 

28, PP, RO 

(ROS, Rb 

29$ 

#24, PP, R1 

(R15, RO 

28$ 


R6, RO 

#1, OUT_LINE_CHAR, R9 
IN_LINE~CHAR? R10 

RS 1¢R0) R102, (RO) 
47(DCB), 30$ 

RE BORDER, #1 

308 

WCB 

pp 

DCB 

#3, SMGSS$DRAW_BORDER 
STATUS, 32$ 

#28, PP, RO 

(ROS 

31$ 

QOUT_LINE_CHAR 


#0, 2(WCBY, @OUT_LINE_CHAR 
YTES_REMAINING 


(FOUND_BYTE), @OUT_LINE_CHAR 
#1, RO 


BeBe Be Be Se Be Be Be Be Se Be Be Be Be Se Se Be Be Be Se Se Be Ge Se Se Se Ge Se Se Be Se Se Se Se Be Se Se Se Se 
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1-07 : SMGRTL.SRCJSMGDISOUT.B52;1 


SMGOCCLUDE = Check for occlusion 14-Sep-1984 9:46 
1 ZSBTTL ‘SMGOCCLUDE = Check for occlusion’ 
GLOBAL ROUTINE SMGSSOCCLUDE ( LOWER : REF VECTOR Reogited é 
UPPER : REF VECTOR L,WORD,SIGNED 
REWRITE : REF VECTOR C,WORD, SIGNED) 


++ 
FUNCTIONAL DESCRIPTION: 


This routine inspects the relative positioning of two areas -- 

a LOWER area and an UPPER area. It determines whether the 

UPPER area occludes any portion of the LOWER area. If occlusion 
is found, a rectangular area which is the occluded part is 
isolated and its coordinates are returned as the area which 

must be rewritten. 


i CALLING SEQUENCE: 
CODE.wl.v = SMGSSOCCLUDE (¢ 


LOWER.rw.r, 
UPPER. rw.r, 
it sds 
FORMAL PARAMETERS: 
LOWER. raw.r Descripion of a rectangular area represent 
a ‘‘lower'’ area.! ; 
UPPER. raw.r Description of a rectangular area representing 


an ‘‘upper’’ area. 

REWRITE.waw.r Description of a rectangular area which 
represents the area of the lower which is 
occluded by the upper ( if any). 

IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE 


WR 9 DONO WN (OO OONAUNE WW OO ODNOU FW OOONOUL Wh 
AURSWN OS OONAU EWN 0 ODN WN (CO CONOUE WN -O0OOon 


BPW MNWIWINWAUI AIP PIPIPNINININININIDD 2 OO OS POO OC OOOOOCOCOCOODO 


SIDE EFFECTS: 
NONE 


N 
RAL 
ROW_START 
NUM~ROW 
COL"START 
NUM~ COL 


peal eal ea Sa al al al a ll AP Sl ee ee Se Ee EE SE ee Se Se ee ee Se ee Be Ee Ee Te ee ee Ee Se ee Te ee ee Ee ee ee ee 
POPOPIPIPINININININPIPIPIPININIPIPIPPIPIPPYNIPINIPYININPIPYDIPYNIPIPPYIPIPIPIPIPIPIPINPINPINIPI NIU 


SOON 
PII at tt at at at a at at a a a nt a ns at a at a a a sh sh hh ss Sh Ss 


AAA AAIAAAANAA AA AIWAAIA AWN AA NANI ANAIANI ANNAN ANIA NAAWNWNA AA AAANAI ANA HAAN 


ANNAN NNAIAA AIA AAAI AAAI AAAI AAAI ANNAN AAAI AIAN WW 


NOUS WN — 

DMI BELLE 

WO OONOUS WO Con 
“nnn 


Wr 


rororyo 
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Phas geet Re 98:85 328 


4.0-74 
SMGOCCLUDE = Check for occlusion oYsoor 68231 Page 33) 


LOCAL 

ANS 
STATUS 
LOWER_BOTTOM_ROW: SIGNED, 
LOWERRIGHT COL: SIGNED 
UPPERBOTTOM_ROW: SIGNED, 
UPPER_RIGHT_COL: SIGNED; 

MACRO 
LOWER_ROW START = LOWER CROW_STARTIX, 
LOWER-NO_ROwW = LOWER CNUMTROWJ% 
LOWER-COC_START = LOWER CCOL“STARTIZ, 
LOWER_NO_TOL = LOWER CNUM_COLJ%, 
UPPER_ROW START = UPPER CROW_STARTI2Z, 
UPPER-NO_ROW = UPPER CNUM~ROWI]% 
UPPER~COL_START = UPPER CCOL“STARTIZ, 
UPPER_NO_COL = UPPER CNUM_COLJZ, 
REWRITE_ROW_ START = REWRITE CROW_STARTIZ, 
REWRITE-NO_R = REWRITE CNUMROWJ% 
REWRITE-COC_START = REWRITE CCOL"STARTIZ, 
REWRITE_NO_COL = REWRITE CNUM~COLJ2; 


1+ 
Calculate the other bounds of the specified rectangles. 


LOWER_BOTTOM_ROW = .LOWER_ROW_START + .LOWER_NO_ROW 
LOWERTRIGHT COL = .LOWERTCOL-START + .LOWER-NO~COL 

OM ROW = :UPPERTROW-START + .UPPER-NO-ROW 
“UPPER -NO~COL 


= 
v 
v 
m 
Pp] 
a 
» 
_ 
a 
= 
“ 
i 
mn 
o 
r 
“ou 
= om 
Cc 
vu 
v 
m 
 ] 
‘ss 
o 
oO 
-z 
: | 
wn 
_ 
> 
| 
~ 
+> 
adababash 
Pete Ge Se 


1+ 
Assume no occlusion occurs until it proves otherwise. 


STATUS = 0; 
'+ 


i Check for relative position of upper left-hand corner of UPPER 
rectangle with respect to LOWER rectangle. 


Ps ae ae aend ce ate bee ae he oO Oe One in eh net ee eae 
PEN 3 O OONOAUE WIN 9 OD NAME WIN — O OONAOUE WN (OO OONA NEW | OOOIOUNE 


ANAAAA AIA AAAI AAI AIA AAA AIAN ANA WAI WWNAANAAAA HANAN AN NAINA 


AANA AAI AA AI GAIRIPIPPPUDPIPIPIPIPINNINININININPINININPPYININPOPUNPUNoNoNoNofponony 


Se Se Se Se Se Se Se Be Be Se Be Se Ge Se Se Se Ge Be Fe Se Fe Ge Se Se Ge Ge Ge Se Fe Sse FHS Sse Se Se Se FF Se Se Se Se FF Se Se See Se Se See Se Se Ge Se Se Seas 


NAINA AIP IPPIPODIPUPPDPYPININYIPINIPIPNINIPINIPIPINPINPIPUNPYUNRINPININPONINONY 


ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_COL_START, ' x1 
UPPER oman ART 4 : ¥t 
CASE .ANS FROM 0 TO 10 OF 
(0]:BEGIN 
REWRITE_ROW_START = .UPPER_ROW_START; 
REWRITE_COL_START = ,UPPER_COL_START; 
i Check relative position of lower cigatnene corner of 
ti UPPER rectangle with respect to LOWER rectangle. 
08 ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, ' x] 
10 UPPER-BOTTOM_ROW, ' ¥1 
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wid SMGOCCLUDE = Check for occ Lusion ii 1e-8ep-19 4 Te SMGRTL. ROIS 
3 58 1} - LOWER); 
H 7 i§ CASE .ANS FROM 0 TO 6 OF 
; 3258 14 SET 
; 59 i} oe | C0J:BEGIN 
; 3260 16 4 REWRITE_NO_ROW = .UPPER_NO_ROW; 
; ; 61 17 4 REWRITE _NO_COL = .UPPER_NO_COL; 
3 6¢ 18 ; END; 
; 326 19 
: $ee Q0 4 (2):BEGIN 
> 3265 301 4 REWRITE_NO_ROW = .UPPER_NO_ROW; 
; 3 66 3 2 4 REWRITE-NO-COL = .LOWERTRIGHT_COL -.UPPER_COL_START+1; 
; 326 ; END; 
:; 3268 : 4 
: 3269 5 4 (4]:BEGIN 
; 3 70 3 $ 4 REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START+1; 
: 71 3 4 REWRITE_NO_COL = .UPPER NO_COL; 
3 3548 328 ; END; 
s Ser $262 
3: 3274 3330 4 (6]:BEGIN 
3 3275 3331 4 REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START+1; 
3 $558 3336 4 REWRITE _NO_COL = .LOWER_RIGHT_COL - .UPPER_COL_START+1; 
: 3278 3332 : C1,3,5]: RETURN (SMG$_FATERRLIB); 
: 3279 $32 3 
; 3280 36 3 TES; 
: 3281 337 2 END; 
; 3506 338 ¢ 
; 328 339 C1):BEGIN 
3: 3284 3340 REWRITE_ROW_START = .UPPER_ROW_START; 
> 3285 3341 REWRITE-COL-START = .LOWER-COL~START; 
; 3286 306 ‘+ 
3; 3287 334 ! Check relative position of lower right-hand corner of 
3 3508 $eee UPPER rectangle with respect to lower rectangle. 
; 3290 3346 ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, 1X1 
; 3291 3347 UPPER-BOTTOM_ROW, iy 
; $598 $308 - LOWER); 
3 $53 349 
3 $598 $29 CASE .ANS FROM 0 TO 6 OF 
3 3236 328 4 (0):BEGIN 
; 3297 353 4 REWRITE_NO_ROW = .UPPER_NO_ROW; 
: 98 334 4 REWRITE-NO-COL = .UPPERTRIGHT_COL - .LOWER_COL_START +1; 
3 $27 END; 
; 3301 33 C1): RETURN (.STATUS); 
3 : 59 4 C2]:BEGIN 
; 3304 0 4 REWRITE_NO_ROW = .UPPER_NO_ROW; 
; 3305 61 4 REWRITE_NO_COL = .LOWER_NO_COL; 
; 396 ; END; 
; 330 6 
; 08 64 4 (4]:BEGIN 
: 09 65 4 REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW START+1; 
; 310 66 ‘ REWRITELNO_COL = ,UPPERTRIGHT_COL -.LOWER_COL_START#1; 


3 
M 


2 
G 


v4 
DIS 
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SMGOCCLUDE = Check for occlusion 


; 1g $8 

; \3 § (5): RETURN (.STATUS); 

: 3315 i 4 (6]:BEGIN 

; 1 i 4 REWRITE_NO_ROW = .LOWER_BOTTOM_ROW -.UPPER_ROW_START+1; 
4 t3 4 REWRITE NOW COL = .LOWER-NO_COL;3 

3 19 $9 [3]: RETURN (SMGS$_FATERRLIB); 

: 3304 A] TES; 

: ¢ a END; 

: 4 80 (2) RETURN (.STATUS); 

: § 8¢ [4] RETURN (.STATUS); 

: 3 3 84 (5) RETURN (.STATUS); 

: 33 0 86 (6) RETURN (.STATUS); 

3: S33) 387 

; 333¢ 388 (8):BEGIN 

; 33 89 REWRITE_ROW_START = .LOWER_ROW_START; 

3 $83¢ $0) REWRITE_COL_START = .UPPER_COL_START; 

: 3336 4 ! Check relative position of lower AE peers corner of 

; $334 334 1_UPPen rectangle with respect to LOWER rectangle. 

: 3339 95 S = SMGSS$POINT_IN_RECT_R3 (UPPER RIGHT_COL, ' x4 

; 3340 396 PPER R BOT TOM_ ROW, i | 

: 3341 397 UT OUER) 

s a0§ 398 

; 343 399 CASE .ANS FROM 0 TO 10 OF 

: 3345 401 4 (0]:BEG 

: 3346 40¢ 4 REWRITE_NO_ROW = -UPPER _BOTTOM_ROW -.LOWER_ROW_START+1; 
> 3347 403 4 REWRITE-NO-COL = .UuPPERTNO_COL? 

; 3348 404 ; END; 

: 3349 405 

; 330 406 4 (2]:BEGIN 

> 3351 407 4 REWRITE_NO_ROW = .UPPER_BOTTOM_ROW -.LOWER_ROW_START#1; 
: 338 408 4 REWRITE-NO-COL = .LOWERTRIGHT_COL - .UPPERCOL~START#+1; 
3 5 409 ; END; 

3; 3354 410 

; 3355 411 4 (4]:BEGIN 

: 3356 aig 4 REWRITE_NO_ROW = .LOWER_NO_ROW; 

> 3357 413 4 REWRITE-NO~COL = .UPPER™NO~COL; 

: 3358 414 ; END; 

3 59 415 

: £19 4 (6):BEGIN 

: 1 417 & REWRITE_NO_ROW = .LOWER 

3 3 48 4 REWRITE” NOW COL = .LOWER “RIGHT Tio ~.UPPER_COL_START+#1; 
; 1 4 3 (8): ‘RETURN (.STATUS); 

; 4 ; [10]: RETURN (.STATUS); 

: 426 (1,3,5.7,9]: RETURN (SMG$_FATERRLIB); 


E nite - ROW = .UPPER_BOTTOM_ROW -.LOWER_ ROW START+1; 


WAWWW WAWNw 
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a4 SMGOCCLUDE = Check for occlusion ~— 12-808= 1 3Re 90:35 46 SMGRTL. RCISMGDISOUT.B 2:1 99° 05) 
: 3369 425 
; 3370 4 § TES; 
3 a! re END; 
: i 4 § (9]:BEGIN 
: 3374 430 REWRITE _ROW_START = .LOWER_ROW_START; 
: 3 431 REWRITELCOLISTART = .LOWER-COL-START; 
: 45 4 : i Check relative position of lower Byes. corner of 
; A: ? : } UPPER rectangle with respect to LOWER rectangle. 
; 0 4 8 ANS = SMGSSPOINT_IN_RECT_R3 (UPPER_RIGHT COL, ' x1 
; 3381 4 UPPER-BOTTOM_ROW, iy 
3 o¢ 4 3 LOWER); 
; 338 4 
: f CASE .ANS FROM 0 TO 10 OF 
; 3 86 C03 :BEGIN 
; 3388 REWRITE-NO-COL = .UPPER-RIGHT_COL -.LOWER_COL_START+1; 
3 34 END; 
: 3 91 (1): RETURN (.STATUS); 
: 3 38 (2]:BEGIN 
3 94 REWRITE_NO_ROW = .UPPER_BOTTOM_ROW -.LOWER_ROW_START+1; 
95 REWRITE_NO_COL = .LOWER_NO_COL; 
3397 END; 
398 (4) :BEGI 
3399 REWRITE_NO_ROW = .LOWER_NO_ROW; 
400 REWRITE-NO_COL = .UPPERTRIGHT_COL -.LOWER_COL_START+1; 
40¢ : 
cae C5): RETURN (.STATUS); 
05 (6]:BEGIN 
406 REWRITE_NO_ROW = .LOWER_NO_ROW;; 
0 REWRITE-NO_COL = JLOWERTNO~COL; 


(8): RETURN (.STATUS); 
(9): RETURN (.STATUS); 
(10): RETURN (.STATUS); 
(3,7): RETURN (SMG$_FATERRLIB); 


TES; 
END; 


C10]: RETURN (.STATUS); 
(3,7]: RETURN (SMG$_FATERRLIB); 
TES; 


PRIPIPIPIPIPIPI WHI NWININI WWW & BP ANI & PWIA BF EWI BE EE 


PEW O OOO Uw $0 0O@ 
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= 


; 34 $ 4 : 
: 34 4 \+ 
: 3428 484 ! If we reach here, some occlusion has been detected and the output 
: 3429 485 ! arguments have been calculated. All that remains is to return the 
: . : ? § right status reporting existance of occlusion. 
: 34 é 488 RETURN (1); 
: 34 489 
; 3434 490 END; ' End of routine SMG$SOCCLUDE 
OFFC 00000 .ENTRY SMGSSOCCLUDE, Save R2,R3,R4,R5,R6,R7,RB,RI,~; 3198, 
35 08 ¢c2 0000 SUBL2 #8, SP : 
04 AC 00 0000 MOVL LOWER, R2 : 3282. 
02 A2 9F 00009 PUSHAB 2(R2) : | 
50 & ; 000C CVTWL (R2), RO ; 
51 00 BE O00F CvTWL ©ad(SP), R1 : | 
50 ¢ 0013 ADDL R1, RO : 
FF AO 9F 00016 PUSHAB -1(RO) : | 
5A 04 Ae SE 90019 MOVAB 4(R2), R10 ; 3283 
SB 06 A2 YE 0001D MOVAB 6(R2), R11 : 
50 6A ; 990 1 CVTWL (R10), RO : 
51 6B 0024 CVTW (R11), R1 : 
50 51 C0 00027 ADDL2 R1, RO F 
54 FF AO i O002A MOVAB -1(RO), LOWER_RIGHT_COL ; 
56 08 AC D 900 ; MOVL UPPER, RG : 3284. 
59 02 Ab 9E 000 MOVAB (R6), RY : 
51 66 3 90036 CVTWL = s(R6), RI : | 
50 69 0039 CVTW (R9), RO : 
51 50 CO 0003C¢ ADDL2 RO, RI : 
08 Ac FF OAL OSE 900 F MOVAB -1(R1), UPPER_BOTTOM_ROW ; | 
5 06 AB YE 00044 MOVAB 6(R6), RB ; 3285 
51 04 Ag 3 0048 CVTWL 404 (R6), RI 3 | 
50 6 004C¢ CVTW (RB), RO : | 
51 50 CO 0004F ADDL2 RO, RI ; | 
Oc AE FF «UO OSE 003¢ MOV -1(R1), UPPER_RIGHT_COL : | 
57 pa 005 CLRL STATUS : 3330 | 
50 046 Ab 9039 MOV 4(R6), RO 3 3296. 
51 56 p 05 MOVL 6, RI : | 
0000v 06 BSBW § SMGS$POINT_IN_RECT_R3 ; 
53 D MOVL RO, A ; 
00 CF 00066 CASEL ANS, #0, #10 : 3300 
006F 001 006A 1$: . WORD gs $,- ; 
0183 O18 99072 $-1$,- : 
014 0D 007A ; 


WR HWANG 
G0. 00.0000000 000 
PTT T TTS SS 
es os 
PAPAPAAAAAGS 
set ef & & & a 
teupeueeesn 
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m8 SMGOCCLUDE = Check for occlusion sp 12-808- 1382 00: 3oi SMGRTL.SRCISMGDI SOUT .B 2:1 9° 23) 
55 0c AC DO 00080 2$ MOVL REWRITE, RS : 3302) 
65 66 B 0 4 MOVW (R6), (RS) : 330 
04 Ad 4 Ab : 7 MOVW 4(R65, 4(RS) : 3304. 
21 8 AE 9E 000 OVAB UPPER. BOTTOM_ROW, R1 : 3309 
0 C AF 3 MOVAB UP ER RIGHT COL, RO : | 
0000v 9 BSBW  SMGSS$POINT_IN_RECT_R3 : 
5 29 D 97 MOVL RO ANS : 
06 0 CF OO09A CASEL ANS, #0, #6 + 3313 
0183 001 018 0008 0009 3$ WO 45s - : 
0025 0183 018 O0A6 seg : 
98338,- : 
$98536,- : 
02. AS 69 80 OOOAC 4$ MOVW = (R9),,_ 2(R5) : 3316) 
00E1 31 0008 BRW 24$ ; 3317) 
02. AS 69 BO 000B3 5$ MOVW  (R9), 2(R5) ; 3321) 
16 11 0008 BRB 8$ : 3322 
50 66 3¢ 00B9 6$ CVTWL  (R6), RO : 3326. 
50 6E 50 o008¢ SUBL3 RO, LOWER_BOTTOM_ROW, RO : 
0086 3) d0¢9 BRW 21$ : 
50 rz : 000C3 7$ CVTWL  (R6), RO + 3331 
50 6E 50 C $54 SUBL RO, LOWER BOTTOM_ROW, RO é 
02 AS 50 01 Ail OOOCA ADDW #1, RO, 2TRS) 3 
50 04 Ab 3¢ OOOCF 3$ CVTWL 36 4(R6) : 3332 
50 54 50 C 90003 SUBL RO LOWER_RIGHT_COL, RO ; 
48 11 00007 BRB 15$ : 
55 0c Ac DO 90009 9$ MOVL REWRITE, RS : 333 
65 66 BO 000DD MOVW = (RO), ¢ : 334 
04 AS 6A BO SO0E0 MOVwW (R105, 4(R5S) 3 334 
5} 08 AE 9E O00E4 MOVAB UPPER. BOTTOM_ROW, R1 : 334 
50 OC AE 3 000E8 MOVAB UPPERRIGHT COL, RO : 
0000v 30 OO0EC BSBW  SMGSSPOINT_IN_RECT_R3 : 
53 20 dO OOOEF MOVL : 
06 00 53 CF 000F2 CASEL ANS, #0, #6 : 3350 
0128 0014 0127 000 000K 108: <WORD 11$-10$.- : 
0035 0127 OO1A OOFE ig8-108:- : 
39$-10$.- : 
138-1 $;- : 
38$-10$,- : 
02. AS 6 106 118: move RB). SERS) 2 335 
3 0 oot BRB 14$ ° > 335 
02. AS 80 1 A 12%:  MOVw  (R9), 2(R5) : 336 
7 11 001 BRB 17$ : 
50 6 32 00110 13S: “VT (R6), RO : 
5 6 C3 0011 SUBL RO, LOWER BOTTOM_ROW, RO : | 
02 A 1. & 11 ADDW # RO, 2TR5) : 
50 A 32 0011C 148: CvTw ), R > 3366 
50 oc A 0 C3 OO11F SUBL3 RO, UPPER RIGHT COL, RO ; | 
06 «AS 5 01 Ai 4 15$: ADDU #1. RO, 6TR5) Py 
5 30 $3 x 1 ‘bse suet aon eee BOTTOM_ROW, RO 3372 
02 3 $f 1A 1 5 ANDW By bow Behe) on ; 
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M 16 
SMGSDISPLAY_OUT SHGSDISPLAY OUTPUT = Output Virtual Displays 16-Sep-1984 00:37:4 AX-11 Bliss-32 V4.0- 
1-072 OCCLUDE = Check for oct lusion Plays peep RRs MO BS2g «— FAMGAT Ob ea se enor e.g Pa9e oS 
50 08 A 0 C3 OO1E SUBL3 RO, UPPER BOTTOM ROW, RO : 
02 Ad 5 ey CF Es ADDU Hi RO, 2tR4) ~ la 
50 : : 1EF 328 CVTW s4§ RO : 3450. 
- 50 08 A C 1Fe Sues RO, UPPER BOTTOM. ROW, RO : 
. 9 4M borre a te ee ? 3451) 
02 AG 04 BE 3 3 338: MOVW a4 (SP), (R4) : 363), 
50 9A ? 4$: CVTW (R10) 3; 3456 
50 oc A 0 ¢ suBLS RO, UPPER_RIGHT_COL, RO : 
06 Ad 5 01 Ai 00 ADDW3 #1. RO, 6TR4) : | 
17, (11 10 35$: BRB 40$ : 3440) 
02 A4 04 BE 80 1 68: MOVW  @a4(SP), 2(R4) + 3462) 
06 AG 68 ° 1 $: MOVW (R11), 6(R4) 3 3463) 
96 1 1B BRB 40$ : $to 
50 v0 0 1p 38$: OVL STATUS, RO ; 3477. 
50 000000006 8F 0 0 : 39$: MOVL #SMG$_FATERRLIB, RO + 3479) 
50 01 DO 00229 40$:  MOVL #1, RO : 3488 | 
04 0022C RET : 3490) 


; Routine Size: 557 bytes, Routine Base: _SMGSCODE + OFB9 


; 3435 3491 1 !<BLF/PAGE> 


1 

SMGSDISPLAY_OUT SMGSDISPLAY_OUTPUT = Output Virtual Displays 18-se -1984 00:37:40 AX-11 Bliss-32 V4.0-74 Page 

in672 SMCSSPOINT IN-RECT_R3 = Point inside rectangle iecsepei9ae $o:09:46  FeMGRTLesRetshepl sour BS2s1 903) 

: 7 492 1 ZSBITL ‘SMGSSPOINT jN RECT_R3_ = Point inside rectangle’ | : 
: 3438 495 1 GLOBAL ROUTINE SMGSSPOINT IN_RECT_R3 ( ! Point in rectangle : 
> 3439 3494 1 X1_: REF VECTOR (7WORD,SIGNEDJ, ! X coordinate of point | ; 
: 3440 495 1 Yi ; REF VECTOR LC, IGNEDJ, ! Y coordinate of point 3 
: 3441 49 RECT : REF VECTOR C,WORD, SIGNED ; 
: 344 49 ) : POINT_IN_RECT_LINK = : 
3; 344 498 1 !++ : 
H rt: rs : FUNCTIONAL DESCRIPTION: : 
3; 3446 aor at This routine returns a code indicating the relative placement 3 
: 3447 2n$ 1! of a gerat with respect to a horizontally-oriented window (that is, | ; 
3; 3448 28 1 ! one of the sides of the rectangle is parallel to the x-axis. : 
; re? eRe ; (See diagram below). 3 
Py . | Py 
; 3451 506 1! This is the inner-most function of the Cohen-Sutherland clipping 3 
H re 507 1 ! algorithm. H 
; 345 508 1! : 
; $28 4 : } These codes have two significant properties: : 
; 3456 Sh ee 1. If the CODE of two points are each zero, both points are | : 
3 3658 $216 ' within the window and no clipping needs to be done. | : 
: 3459 3514 1! 2. If the logical AND of the CODEs of two points is non-zero, 3 
: 3460 $212 1! the points are both outside of the window and are so : 
: 3461 516 1! positioned that the Line joining them does not intersect | : 
3; 346 3212 1! the window. (l.e., it is a Line segment which need not : 
; 346 518 1! be even oartially displayed. : 
: 5464 3519 1! : 
; 3465 3520 1! ; 
: 3466 $25; 1! : H 3 
; 3467 35 ; 1! 1001 H 1000 H 1010 3 
3; 3468 ee eee 1 : 3 
s 3469 3524 1 ' woe nono eee nee eee ¢oeeecoenan Seema wearer ee rece em new enmeocane RECT CDCB_W_ROW_START] é 
: 3470 3325 1! H H / ; 
: 3471 $259 7 § ' Window H H $ 
: 3472 527 1! { RECT COCB_W_NO_ROWSJ ; 
3; 3473 528 1! 0001 ' 0000 ' 0010 : 3 
3; 3476 44 1! H H Vv 3 
: 3475 5 0 1 t eetose seen enraeecene ¢ ere ee eee eee eee eee ee emcee te eer eee nreece= P 
: 3476 See Se H H ; 
: 3477 336 1! 0101 ' 0109 ' 0110 : 
: 3478 >> Bee ee : H ; 
: 3479 534 1 | '<=RECT CDCB_W_NO_COLSJ>! 3 
; +80 tH 1! H { 3 
: 3481 536 (1 RECT CDCB_W_COL_START) ; 
; 348 >) game fee ; 
; 348 538 1! 3 
3 3484 539 1 ! CALLING SEQUENCE: : 
; 3485 540 1! | 3 
: 486 341 ; CODE.wl.v = SMGSSPOINT_IN_RECT_R3 (X1.erw.r, Yieew.r, RECT. rab.r) ; 
; 3488 28 1 ! FORMAL PARAMETERS: : 
: 3489 544 1! Z : 
: 3490 545 1! Xi.rwer X coordinate of point 3 
: 3491 248 1! Yieew.r Y coordinate of point 3 
; £36 seen 1 RECT. rab.r Discription of the rectangular area. : 
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SMGEDISPLAT_OUT SHGEDISPLAY OUTPUT = Output Virtual Displays 1hesdp-1984 00:37:40 VAXe11 Bliss-32 v4. 0-74 6 
3-07 SMGSSPOINT INCRECT_R3 > Point inside rectanale 1eckep-19Be soi09.c6 — FemGrTe saeismapy sour Bg2-% age} 


3604 1 END ! End of module SMGSDISPLAY_OUTPUT 
£08 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_SMGSCODE 4668 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


bis a ee ee eee ae ee ea Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped ime 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 16 0 581 00:01.0 
3 ~$255$DUA28:CSMGRIL.OBJJRTLLIB.L32;1 3 0 00:00.1 
5 ~$58e$DUADB: CSMGRTL.OBJJSMGLIB.L32;1 469 99 21 38 00:00.4 


COMMAND QUALIFIERS 
PL SESSEMECR OCF ECLO. ARETEM, OPTIMIZED SHOTRACE/L 1504 155: SRGDI SOUT /ORI“GRIEs SHED I SOUT MSRC$:SMGDISOUT/UPDATE=(ENHS$: SMGDI SOUT 


; Size: 4667 code + 1 data bytes 
; Run Time: 01:42.7 

; Elapsed Time: : 

; Lines/CPU Min: gly 

; Lexemes/CPU-Min: 19506 

: ry Used: 537 pages 

; Compication Complete 
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